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SEQ 0004 



1.0 INTRODUCTION 

THE M8053 ANO M8064 ARE SINGLE -LINE SYNCHRONOUS, MICRO- 
PROCESSOR BASFD COMMUNICATIONS INTERFACES WHICH CAN SUPPORT 
BOTH CHARACTER-ORIENTED (DOCMP, BSC, ETC.) ANO BIT-ORIENTED 
(SDLC. HOLC. ETC) PROTOCOLS. THE PURPOSE OF THIS PROGRAM IS 
TO PERFORM DIAGNOSTIC TESTING OF THE CSRS, RAM, AND BASIC 
MICRO-PROCESSOR LOGIC ON THESE BOARDS. THE FOLLOWING 
FUNCTIONS WILL BE PERFORMED: DMV RESIDENT U-DIAG EXECUTION 
CSR ADDRESSING, VTA REGISTER STATIC BIT INTERACTION AND 
READ/WRITE TESTING, AND ON-BOARD RAM TESTING, 

THE STATIC LOGIC TESTS WILL PROVIDE EXTENSIVE 
TROUBLESHOOTING CAPABILITIES. SUCH AS TIGHT SCOPE LOOPS, 
SWITCH OPTIONS, ANO ABILITY TO "LOCK" ONTO INTERMITTENT 
ERRORS. IN ADDITION TESTS ARE DESIGNED ANO STRUCTURED 
TO ACHIEVE MAXIMUM FAULT RESOLUTION ANO FACILITATE 
REPLACEMENT OF THE SMALLEST FTELD REPLACEABLE UNIT. 

THIS PROGRAM IS IMPLEMENTED USING THE DIAGNOSTIC 
SUPERVISE AND A STRUCTURED PROGRAMMING APPROACH. BECAUSE 
THE DESIGN CONFORMS TO THE SUPERVISOR (STANDALONE 
VERSION) THE PROGRAM IS COMPATIBLE WITH ACT, APT, XXDP>, 
ANO SLIDE. 

THROUGH DIALOGUE WITH THE OPERATOR. THE PROGRAM ALLOWS 
MODIFICATION OF DEVICE PARAMETERS, SUCH AS LSI -BUS ADDRESS, 
VECTOR ADDRESSES ANO DEVICE PRIORITY, IN ADDITION, TMfc 
OPERATOR CAN SPECIF) PARTICULAR TESTS TO BE RUN AND A 
VARIETY OF LOOPING, RUNNING, AND REPORTING MODES. 

DEVICE ERRORS WILL BE REPORTED AS THEi OCCUR. THE REPORT 
WILL INCLUDE A TEST NUMBER AND DESCRIPTION OF THE ERROR, 
GOOO AND DAD TEST DATA, AND APPLICABLE DEVICE REGISTER 
CONTENTS. 

2,0 HARDWARE REQUIREMENTS 

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE M8053/8064 STATIC 
LOGIC TESTS: 

SGC-ll/21* 

16K WORDS Or MEMORi 

CONSOLE TERMINAL 

M8053 OR M8064 COMMUNICATIONS INTFRFACE 

3.0 PRELIMINARY PROGRAM HE QUIRE MINTS 

THIS PROGRAM C CHDMA ) SHOULD BE THE f IRS! 0> THE i IVE DM" U 
STATIC 0LAGN0SUC5 TO Be RUN. I RRDRS * OUND IN THIS PROGRAM 
&MUULU- Bt CURRtCTtD biiKORL RUNNINU THE OTHERS* 






CNDMA40 ONVU MCTRL D1AG #\ 

PROGRAM DOCUMENT 

168 
169 

170 
171 

1/2 

17? 
1/4 
175 

176 
17" 

i7a 

179 

180 
161 
13 J 
185 
184 
185 
186 
187 
138 
189 
190 
191 
192 
193 
194 
i*5 
196 

19: 

199 

200 
201 
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4,0 GENERAL PROGRAM CONSIDERATIONS 



4.1 DIAGNOSTIC SLPERVISOR 

THIS PROGRAM IS COMPATIBLE WITH THE STANDALONE DIAGNOSTIC 
SUPERVISOR. AND MUST BE LOADED TO BE CO-RESIDENT WITH THF 
SUPERVISOR, OR BE PREVIOUSLY COMBINED WITH THE SUPERVISOR 
ANO LOADED AS A SINGLE FILE. IN f I 7 HER CASE, THF COMBINED 
PROGRAM WILL NOT EXCEED 16K OF MEMORY, 

4.2 EXECUTION TIME 

THE MAXIMUM TIME REQUIRED TO RUN THIS PROGRAM PER PASS FOR 
EACH UNIT IS 160 SECS. 

4.3 XXD°* 

THIS PROGRAM MAY BE LOADED UNDER XXDP*. AND MAY BE RUN IN 
DUMP MODE OR CHAIN MODE. 

4.4 ACT/SLIDE 

THIS PROGRAM MAY BE LOADED UNDER ACT OR SLIDE AND MAY BE RUN 
IN DUMP MODE OR CHAIN MODE. 



SEQ 0005 



4.5 APT 

THIS PROGRAM MAY BE LOADED BY THE APT SYSTEM 
APT-RD) AND RUN IN PROGRAM MODE OR SCRIPT MODE. 



(INCLUDING 



4.6 MEMORY MANAGFMfcNT 

MEMORY MANAGEMENT IS NOT UTILIZED IN THIS PROGRAM, 

4. 7 ERROR LOGGING 

AT THE END Of EACH PASS ON ALl UNITS, ih PROGRAM PRINTS OUT 
THE OtHJLATIVE TOTAL NUMBER OF ERRORS SINCE THE LAST START OR 
RESTART COMMAND. 

5.0 PROGRAH LOAD HEDIA 

IHIS PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE 
ABSOIU'E LOADER OR FROM ACT. SLIDE. OR APT SYSTEMS, OR FROM 
ANr HEO T PPORTEO BY XXDP*. WHEN USING THE PAPER TAPF 
ABSOLUT. JADER, THE PROGRAM SHOULD BE LOADED FIRST. 
KOll OWED bi THf DIAGNOSTIC SUPERVISOR. WHEN USING XXDP.. THE 
DIAGNOSTIC SUPERVISOR SHOULD BE LOADED FIRST, FOLLOWED BI 



G'l 
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6.0 OPERATING INSTRUCTIONS 



6 J LOADING AND STARTING PROCEDURES 



6.1,1 LOADING PROCEDURES 

THIS PROGRAM MAY BE LOAOED f'ROM PAPER TAPE USING THE 
ABSOLUYE LOADER. If MAY ALSO BE LOADED FROM ANY XXDP* LOAD 
MEDIA. WHEN LOADED UNDER XXDP* V THE DIAGNOSTIC SUPERVISOR 
WILL BE LOADED AUTOMATICALLY. 



6,1.2 STARTING PROCEDURES 

THE PROGRAM STARTS AT LOCATION 200. 
PROCEDURES TO START THE PROGRAM. 



USE STANDARD DEC 



6.1.3 STEPS FOR QUICK AND SIMPLE EXECUTION 

THE DIAGNOSTIC CAN BE EXECUTED STANDALONE l.NOER xXDP*, 
WITHOUT READING THE REMAINOER OF THIS DOCUMENT, AS FOLLOWS: 

A) LOAD ANO START DIAGNOSTIC USING RUN COMMAND 

B) RECEIVE DIAGNOSTIC SUPERVISOR IDENTIFICATION AND PROMPT IDRS-CO 

C) ENTER 5TA<CR> 

D) ANSWER HARDWARE ANO SOFTWARE QUESTIONS 

E) GET ENO OF PASS MESSAGES OR ERROR MESSAGES 

F) TO END EXECUTION, ENTER CONTROL VC 

6.2 INITIAL DIALOGUE 

AFTFR THE PROGRAM ANO THE MJPt ft VISOR ARt I OADED AND THE PROGRAM 
rs STARTED, THE FOLLOWING IDENTIFICATION IS TYPED : 



DRS LOADED 

DiAG. RUN TIME SERVICES 

C NOMA A 

DMV 11 U CONTRL LOGIC DIAG 
UNIT IS M80M OR M8064 
DR^ 



PART 1 OF 



THE OPERATOR THEN PROCEEDS B^ TAPING ONE OR MORE OF THE 
CCMMANOb DEbCRIBtU IN 1HI FQLI.I)WINU SECTION 6.3. (FOR MURE 
DfTAliED INFORMATION, REM R TO THE DIAGNOSTIC SUPERVISOR 
» UNCTIONAl SPECIFICATION). 



h. *> MRUliHAM OPT IONS 



6.^.1 blMWt COMM^^iO 
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SEQ 0006 



STA(R1 )/TE STS : < TEST -L IS T > /PASS: < PASS -CNT > /FLAGS: 
< KL AG - L I S T > /EOP : < INCR > 

6.3.1.1 TESTS SWITCH C /TESTS: < TEST-LIST> ) 

<TEST LIST> IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR 
RANGES OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE 
TESTS TO BE EXECUTED. THE NUMBERS ARE SEPARATED BY COLONS. 
THE NUMBERS RANGE FROM 1 TO THE LARGEST TEST NUMBER IN THE 
DIAGNOSTIC. THEY MAY BE SPECIFIED IN ANY ORDER. TESTS WILL 
BE EXECUTED IN NUMERICAL ORDER REGARDLESS OF THE ORDER OF 
SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS ON 
THIS ANO ALL SWITCHES, THE ANGLE BRACKETS <> ARE PUNCTUATION 
USED IN THE DEFINITION ONL i , AND ARE NOT TO BE TYPED BY THE 
OPERATOR. SEE EXAMPLE AT END OF 6,4,1.5. 

6.5.1.2 PASS SWITCH ( /PASS : <PmSS-CNT> ) 

<PASS-CNT> IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER 
OF PASSES, A PArS IS DEFINED AS THE EXECUTION OF THE FULL 
DIAGNOSTIC (ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED. 
THE DEFAULT IS NON-i'NOING EXECUTION. IM THIS CASE EXIT FROM 
THE PROGRAM IS ACCOMPLISHED EITHER BY TYPING A CONTROL /C OR 
BY OCruRANCE OF AN ERROR WI1H THE HALT ON ERROR FLAG BEING 
SET. THE EXIT IS A RETURN TO COMMAND MODE. SEE EXAMPLE AT 
END OF 6.3,1.5. 

6.3.1.3 FLAGS SWITCH < /FLAGS : <FLAG t 1ST O 

<FLAG-LIS1> IS A SEQUENCE OF ELEMENTS OF THE FORM <FLAG^, 
<FLAG-1>. OR <FLAG-0>, SEPARATED BY COLONS, WHERE <FLAG> HAS 
ONE OF THE FOLLOWING VALUES: 

H0£ HALT ON V.RROR. CAUSING COMMAND MODE TO BE 

ENTERED WHEN AN ERROR IS ENCOUNTERED 
LOE LOOP ON ERROR. CAUSING THE DIAGNOSTIC TO LOOP 
CONTINUOUSLY WITHIN THE 5M.V.LF.5T DEFINED BLOCK 
OF CODING (SEGMENT, SUBTEST', OR TE5T) CONTAIN- 
ING THE ERROR 
IER INHIBIT ERROR REPORTING 
IdL INHIBIT BASIC ERROR REPORTS 
IXE INHIBIT EXTENDEO ER^OR REPORTS 
PRI DIRECT ALL MESSAGES TO A LINE PKINTfR 
PNT PHINT NUMBER OF TFST BEING FXECUTED 
BOE BELL ON ERROR 
UAH RUN IN UNATTENDED MODE, BYPASSING MANUAL 

INTERVENTION TESTS 
ISR INHIBIT STATISTICAL. REPORTS 
IDO INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 
- -LQ-l LOQR-QN-TLST 
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331 
352 

35 5 
354 
355 
356 
35? 
358 
354 
360 
361 
362 
363 
364 
365 
366 

36 7 
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SEQ 0009 



THE FLAGS NAMED OR EQUATED TO 1 ARE SET. THOSE EQUATED TO 
ARE CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS 
SWITCH IS NOT GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT 
END OF 6.3.1.5. 

6.3.1.4 END OF PASS SWITCH C /EOP • <INCR> ) 

<INCR> IS A DECIMAL NUMBER INDICATING HOW OFTEN CIN TCIRMS OF 
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE 
PRINTED. THE DEFAULT IS AT THE END OF EVERY PASS. SEE 
EXAMPLE AT END OF 6.3.1.5. 

6.3.1.5 EFFECT OF START COMMAND 

THE EFFECT OF THc START COMMAND IS TO INITIATE THE HARDWARE 
PARAMETER DIALOGUE. THE SOFTWARE PARAMETER DIALOGUE, AND 
THEN THE DIAGNOSTIC TESTS THEMSELVES. 



THE HARDWARE PARAMETER 
"0 UNITS?" TO WHICH THE 
NUMBER N FROM 1 TO 16 . 
TO WHICH THIS SERIES OF 
THIS ARE THE QUESTIONS 
BE BUILT. EACH P- TABLE 



DIALOGUE COMMENCES WITH THE QUESTION 
OPERATOR REPLiES WITH A DECIMAL 
THE. TERM "UNIT" REFERS TO THE DEVICE 
DIAGNOSTICS IS DEDICATED. FOLLOWING 
WHEREBY THE P-TAbLES THEMSELVES WILL 
IS A CORE -RESIDENT TABLE CONTAINING 
ALL THE HARDWARE INFORMATION FOR ONE UNIT. THE OPERATOR 
MUST SUPPLY N (NUMBER OF WITS) VALUES FOR EACH QUESTION. 
HE MAY DO THIS BY GIVING ONE ANSWER TO EACH QUESTION CIN 
WHICH CASE THE SERIES OF QUESTIONS WILL BE POSED N TIMES) OR 
BY GIVING N VALUES. SEPARATED BY COMMAS. TO EACH QUESTION 
(SERIES WILL BE POSED ONCE). EACH QUESTION IS FOLl OWED BY 
THE RESPONSE RADIX (D FOR DECIMAL, B FOR BINARY, FOR 
OCTAL, L FOR YES/NO) IN PARENTHESES AND THE DEFAULT VALUE 
AFTER THE PARENTHESES. 

FOLLOWING THE HARDWARE QUESTIONS ARE THE SOFTWARE QUESTIONS 
TO BUILD THE SOFTWARE TABLES, WHICH DEFINE THE MODE (QUICK 
VERIFY ETC.) THAT THE DIAGNOSTIC WILL EXECUTE IN. 

WHEN THE UUESTION "0 UNITS?" IS ANSWERED, MEMORY STORAGE IS 

ALLOCATED FOR THE P TABLES, AND IF THERE IS NOT ENOUGH TO 

ACCOMMODATE THEM THE MESSAGE "TOO MANY UNITS" IS ISSUED. IN 

THIS CASE THE DIAGNOSTIC MUST BE EXECUTED MORE THAN ONCE TO 
TEST ALL UNITS. 

EXAMPLE: 

ST A/ TESTS: 1:2 -4:6:8 10 'PASS : 3/FLAGS : 1ER:H0E • 1 :UAM:LOE 

Thlb COMMAND WILL CAUSE THREE PASSES TO BE MADE. EACH PASS 
CONSISTING 0^ TESTS 1,2,3.4.6.8,9. AND 10 EXECUTED AGAINST 
ALL UNITS. THERE IS NO DIFFERENCE BETWEEN SAYING <FLAG* AND 
SArING «FLAG-1>, THE NOTATION <FlA(i-0> IS MEANINGFUL ONLY ON 
A COMMANO OTHER THAN START TO CLEAR A FLAG THAT uA5 
PRtVlOU^lY SFT. NOTE THAT ON ALL COMMANDS ONLY THE FIRST 
THREE LETTERS ARE SCANNED. 
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SEQ 0010 



6,3.2 RF.5TART COMMAND 

RESC TART)/TESTS:<TEST-LIST>/PASS:<PASS-CNT>/Fl AfiS: 

<FLAG-LIST>/UNITS:<UNIT-LIS1 > 

******** *********A**** + ***********4-*** ******* ******* + * + **** 



6.3.2,1 TESTS, PASS, AND FLAGS SWITCHES 

<TEST-IIST>. <PASS-CNT>, AND <FLAG-LIST> ARE AS IN THfc START 

COMHAND . 



6.3.2.2 UNITS SWITCH ( /UNITS: <UNIT-LIST> ) 

<UNIT-LIST> I?. A SEQUENCE OF DECIMAL NUMBERS (0,1 ETC.) OR 
RANGES OF DECIMAL NUMBERS (0-5, 8 10 ETC.) THAT SPECIFY THE 
UNITS TO BE TESTED. THE NIHBERS ARE SEPARATED BY COLONS, 
THE NUMBERS MAY RANGE FROM THRU N-l (N IS THE NUMBF^ OF 
UNITS SPECIFIED IN THE PREVIOUS START COMMAND). THE NUt-dER 
INDICATES THE POSITION OF THE P-TABLE AS THE DATA WA? 
ENTERED DURING THE HARDWARE DTAGLOGUE. THE UK'ITS WHICH ARE 
SELECTED MUST *'0T HAVE BEEN DROPPED BY THE DROP COMMAND. 
SEE THE DISCUSSION OF ADD AND DROP COMMANDS BELOW, DEFAULT 
IS TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED BY A DROP 
COMMAND. 



6.3.2.3 EFFECT OF RESTART COMMAND 

THE RESTART COMMANO DIFFERS FROM THE START COMMAND IN THAT 
THE P-TABLES FROM THE PREVIOUS START COMMAND (THERE MUST 
HAVE BEEN ONE) ARE USED. INSTEAD OF NEW ONES BEING BUILT. 
THE L^ITS SWITCH GTVES THE ABILITY TO SELECT A SUBSET Of 
THESE. THE SOFTWARE DIALOGUE MAY OPTIONALLY BE Ri_EXECUTED 
(OPERATOR WILL BE ASKED). TH* COMMAND CAN BE USED AFTER 
COMMAND MODE HAS BEEN REENTERED IN ANY OF THE THREE NORMAL 
WAYS: A) THE REQUESTED NUMBER OF PASSES HAVE BEEN MADE B) 
AN ERROR WAS ENCOUNTERED WITH THE HALT ON ERROR FLAG SET C) 
A CONTROL/C WAS ENTERED BY THE OPERATOR, 

6.3.3 CONTINUE COMMAND 

CONCTINUE)/PASS:<PASS CNT/FLAGS : <FLAG LIST* 



6.3.3.1 PAS" SWITCH (/PASS:* PASS CNT*) 

♦ PASS CNT> IS SAME AS IN STAR! COMMAND, BUT THE DEFAUl I I 
THE UNSATISFIED PAS5-CNT > ROM THE PREVIOUS START OR RESTART 
IF IAQML REMAINS, THE DEFAULT IS NON-ENDING EXECUTION, 
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6.3.3.? FLAG SWITCH (/FLAGS J <FLAG-LIST^ ) 

<FL.AG-LI5T> IS SAME AS IN START COMMAND, BUT UNSPECIFIED 
FLAGS RETAIN THEIR CURRENT VALUE 

6,3.3.3 EFFECT Of* CONTINUE COMMAND 

CONTINUE MUST FOLLOU A START OR RESTART, AND COMMAND MODE 
MUST HAVE BEEN ENTERED DUE TO A HALT ON ERROR OR A 
CONTROL/C. THE EFFECT OF THE COMMAND IS TO GO TO THE 
BEGINNING OF THE TEST THAT WAS BEING EXFCUTED WHEN THE HALT 
OR CONTROL/C TOOK PLACE. SQrTWARE DIAlOGUE MAY OPTIONALLY 
BE REEXECUTED, HARDWARE PARAMETERS MAY N'OT BE CHANGED. 

6.3.4 PROCEED COMMAND 

+ * + t + *i. + + + + + + ** + *** + + ***** + + + + + + * + ^ * + + + + ** + + + + + + + + + + « + ***** 

PROCCEEDVFLPGS; < FLAG -L 1ST > 
4**+++++++++*+*++****++***+++*+4****+*****+++++++*++*+++++* 



6.3.4,1 FLAGS SWITCH ( /FLAGS; <FLAG-L 1ST > ) 

<FLAG*LIST> IS AS IN THE START COMMAND, BUT UNSPECIFIED 
FLAGS RETAIN THEIR CURRENT VALUE. 

6.3.4.? EFFECT OF PROCEED COMMAND 

PROCEED MUST FOLLOW A START, RESTART, GR CONTINUE. COMMAND 
MODE MUST HAVE BEEN ENTERED VIA A ! , T ON ERROR. THE EFFECT 
Of THE COMMAND IS TO BEGIN EJs JTION AT THE LOCATION 
FOLLOWING THE ERROR CALL. NEITHER HARDWARE NOR SOFTWARE 
PARAMETERS MAY BE ALTERED. 



6.3.5 ADD COMMAND 

******************* 4*****4**,*************+**++.***** + **** + * 

ADD/UNITS:<UNIT I 1ST > 

44*+**+++*+++**+ ********* *****++++++****+****++**** ******** 



6.3.5.1 UNITS SWITCH ( /UNITS: <UNIT LIST > 
<UNIT-LIST> IS AS IN THE RESTART COMMAND. 

6.3.5.? EFFFCT OF ADO COMMAND 

iMt UN LI 5 SPfcCHlED ARE ADDED TO THfr- P ST SEQUENCE. EACH 
UNIT MUST HAVE A P- TABLE IN ME MORI DUE TO AN EARLIER 
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510 

513 

r>i4 

515 
516 
517 
518 
519 
520 
501 
502 
523 
524 
505 
526 
527 
528 
529 
530 
531 
532 
533 
5i>4 
535 
536 
537 
538 
539 
540 
541 
542 
54 3 
544 
54 5 
546 
54 7 
548 
549 
550 
551. 
552 
553 
554 
555 
556 
557 
5^^ 
559 
5t O 
S*>1 
5>62 
SG3 
564 
.!■> 
S(»6 
.. _56 / 
ti66 



Ml 
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HARDWARE DIALOGUE. THIS COMmhinC MUST BE FOLLOWED BY A 
RESTART OR CONTINUE, 1 HE UNITS SWITCH MUST BE SPECIFIED. 
THE ADD COMMAND IS MEANINGFUL ONL^ FOR UNITS THAT WERE 
PREVIOUSLY DROPPED, 

6.3,6 DROP COMMAND 

DRO(P)/UNITS;<UNIT-LIST> 

* + -'. + * + ** + **** + + ** + * + * + ***-**** + + + ***** + ** + + + *+** + + + + * + * + + + v + 



6.3.6.1 UNITS SWITCH ( /UNITS : <UNIT -LIST> ) 
<UNIT-LIST> IS AS IN THE RESTART COMMAND, 

6.3.6.2 EFFECT OF DROP COMMAND 

THE UNITS SPECIFIED UIILL BE DROPPED FROM TESTING. THE UNITS 
WILL BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START 
COMMAND. THE UNITS SWITCH MUST BE ENTERED. THIS COMMAND 
MUST BE FOLLOWED BY A RESTART OR A CONTINUE COMMAND. 

6.3.7 PRINT COMMAND 

*************** #********.******#***************»*********** + 
PRITNT) 

6.3.7.1 EFFECT OF PRINT COMMAND 

THE TOTAL NUMBER OF ERRORS FOR EACH UNIT SINCE THE LAST 
START OR RESTART COMMAND ARE PRINTED. THE ISR (INHIBIT 
STATISTICAL REPORTING) FLAG IS CLEARED. 

6.3.8 DISPLAY COMMAND 

DISC PL AY )/UNITS: < UNIT -LIST > 

6.3.8.1 UNITS SW.'TCH l /UNITS j <UNIT -LIST > ) 
<UNIT-LIST> IS AS IN THE kESTARI COMMAND. 

6.3.8.2 EFFECT OF DISPLAY COMMAND 

THE HAR'.'WARF P -TABLES FOR ALL UNIT:*; UNDER TEST ARE PRIMrj 
OUT IN THE FORMAT IN WHICH 'HE f WERE ENTERED. AN^i UNI • S 
THAI WER^i DROPPED Ot THE OPERATOR "QRQP" COMMAND AR£ SO 



Nl 
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569 
S70 
571 
57? 
573 
574 
575 
576 
577 
578 
5/9 
580 
581 
582 
58? 
584 
585 
586 
587 
588 
589 
590 
591 
59? 
593 
594 
595 
5^'S 
5<>7 

5*8 

599 
600 
601 
6 OP 
603 
604 
605 
606 
607 
608 
609 
610 
611 
61i? 
bl3 
614 
615 
616 
61/ 
618 
619 

b;-'o 

b^j 
*>;?» 

6P4 
6c? 5 
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DESIGNATED. 

6.3.9 FLAGS COMMAND 

************************* V ********************************* 

FLA(GS) 

+ + ****************************♦** + *********** + *********,>,** + 

6.3.9,1 EFFECT OF FLAGS COMMAND 

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 

6.3.10 ZFLAGS COMMAND 

*********************************** V************* ********* * 

ZFL(AGS) 

*********************************************************** 

6.3.10.1 EFF-ECT OF ZFLAGS COMMAND 
ALL FLAGS ARE CLEARED. 

6.3.11 CONTROL CHARACTERS 

A CONTROL C CO ENTERED DURING THE EXECUTION OF A DIAGNOSTIC CAUSES 
A RETURN TO COMMAND MODE. 

A CONTROL 2 U) ENTERED DURING ONE OF THE THREE OPERATOR 
DIAIOGUES- KiHD CORE QUESTIONS (SEE 6 . 2 ) .HARDWARE DIALOGUE 
(SEE 6.3.1.5), OR SOFTWARE DIALOGUf (SEE 6.3.1.5) CAUSES THE 
DEFAULTS TO BE TAKEN FOR THE RE' tndfR of THAT DIALOGUE. 

A CONTROL (0) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC 

CAUSES ALL TELETYPE OUTPUT TO BE SURPRESSED FOR THE 

REMAINDER OF THE DIAGNOSTIC OR UNTIL ANOTHER IS TrPhD. 

WHICH RESTORES NORMAL TELETYPE OUTPUT, 

6.3.12 HARDWARE PARAMETERS 

THE FOLLOWING 3 QUESTIONS WILL BE AS»'ED ON A START COMMAND. 
THE VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN 
RESPONSE. 

1. DEVICE CSR ADDRESS : (0) l600i J 0? 

THIS IS THE ADDRESS AT WHICH THE CSR REGISTERS (SELO) RESIDE 
ON THE LSI-3US. THE ALLOWABLE RANGE IS' 160020-177760 
(OCTAL), AND THE DEFAULT VALUE IS 160020, 

2. DEVICE VECIOR ADDRESS ; CO) 500 1 



SEQ 0013 
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626 

62 7 
628 
629 
650 
631 
t>32 
65? 
654 
655 
656 
63: 

638 
63^ 
t>40 
641 
64 c' 
643 
644 
645 
646 
64 7 
648 
649 
650 
651 
652 
653 
654 
o55 
656 
657 
658 
659 
660 
661 
662 

66 3 
664 
665 
666 
667 
66 '5 
66* 
670 
6/1 
6 72 
675 
6 74 
6 75 
6 76 

67 ' 
678 
6 7'# 
680 
'.HI 

""632" 
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THIS IS THE ADDRESS OF THE INPUT INTERRUPT VECTOR FOR THIS 
DEVICE. THE ALLOWABLE RANGE IS 000-674 (OCTAL), AND THE 
DEFAULT VALUE IS 300. 

3, OEVICE PRIORITY LEVEL : (0) 4 ? 

THIS IS THE CPU PRIORITY AT WHICH THE INTERRUPT HANDLERS OF 
THIS DEVICE WILL BE EXECUTED, THE ALLOWABLE RANGE IS 0-7, 
ANO THE DEFAULT VALUE IS 4, 

6.5.13 SOFTWARE PARAMETERS 

NO SOFTWARE PARAMETER QUESTIONS ARE ASKED BY PART 1 OF THE 
STATIC LOGIC TESTS. 

6.3.14 EXTENOED DISCUSSION OF P TABLE DIALOGUE 

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED By 
THE FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY, 

AS SOON AS THE QUESTION "0 UNITS?" IS ANSWERED (WITH THE 
NL*«ER N, SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABtES. 
ALL OF TH£ P-TABLES ARE OF THE SAME FORMAT, ANO THERE IS A 
ONE -TO ONE CORRESPONDENCE BETWEEN THE HARDWARE PARAMETER 
QUESTIONS ANO THE SLOTS IN THE P- TABLE FORMAT. 

ON THE FIRST TRIP THRU THE QUESTIONS. ALL OF THE SLOTS IN 
ALL OF THE P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN 
LESS THAN N EXPLICIT VALUES IN RESPONSE TO A PARTICULAR 
QUESTION. THESE VALUES ARE PLACED IN THE P-TABLES (ONE VALUE 
GOING INTO THE PROPER SLOT OF EACH P- TABLE BEGINNING WITH 
THE FIRST P-TA8lE) UNTIL THE STRING OF VALUES IS EXHAUSTED, 
THE LAST VALUE IN THE STRING BECOMES THE NEW DEFAULT AND IS 
USED TO FILL THAT SLOT IN THE REMAINING P-TABLES. 

ON Sl8SEQt€NT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS 
CARRIED OUT. EXCEPT THAT THE EARLIEST P TABLE NOT TO HAVE 
RECEIVED AN EXPLICIT VALUE IN ANY OF ITS SLOTS NOW ASSUMES 
THE ROLE THAT TABLE NUMBER ONE PLAYED IN THE F. r RST TRIP. 



THE SERIES OF QUESTIONS IS REISSUED UNTIL AT 
QUESTION HAS RECMVED N FXPl ICIT VALUES FROM THE 



LEAST ONE 
OPERATOR, 



IN GIVING A STRING OF VALL€S, COMMAS WITHOUT INTERVENING 
VALUES MAY BE USED TO INDICATE A REPETITION OF THE. LAST 
NAMED VALUE. 

A STRING OF VAL^S MAY BE GIVEN AS A RANGE (6 10 FOR 
EXAMPLE). IF THE VALUES REPRESENT PURE NUMERICAL DATA, THIS 
SAMPLE RANGE TRANSLATES TO THE STRING 6,7,8,9,10 (AN 
INCREMENT OF 1). IF THE VALUES ARE ADDRESSES, THE SAMPLE 
RANGE TRANSLATES TQ THE STRING 6,8 t 10 (AN INCREMENT OF 2). 

"NOW ~UT~US fcEE "MQW HI ""ttWtQ ~U5t "iMfcSt CAPABIUTltS TU 



CNOMAAO DMVU MCTRL DIAG 01 

PROGRAM DOCUMENT 

683 

684 

685 
68^ 
68? 
688 

689 

6<n 

692 
693 
6^4 
695 
696 
o9? 
698 
699 
700 
701 
70,? 
703 
704 
705 
706 
70" 
708 
709 
7iO 
711 
712 
713 
714 
715 
716 
71' 

7ie 

719 
720 
721 
722 
723 
"24 

725 

726 
727 



C 



) 



MACRO M1200 22 -FEB -84 15 1 2? PAGE 7-8 



CONSTRUCT A SE 
AND THAT THERE 
SLOTS IN THE 
DIALOGUE), IE 
TH* NUMBER 75 
THE SECONO 

(0,1.2 15) 

VALUE 11. LE 
THE NUMBER 76 
THE LAST 9 UNI 



T Of P-TABLES. ASSUME THAT WE HAVE 16 UNITS, 

ARE THREE HARDWARE PARAMETERS TOR EACH (THREE 

P- TABLE, THREE HARDWARE QUESTIONS IN THE 

T THE DESIRED VALUE TOR THE FIRST PARAMETER dE 

FOR ALL 16 TABLES. LET THE DESIRED VALUE FOR 

PARAMETER BE EQUAL TO THE UNT^ NUMBER 

EXCEPT FOR UNIT 12, WHICH SHOULD RECEIVE THE 

T THE DESIRED VALUE FOR THE THIRD PARAMETER BE 

FOR THE FIRST 7 UNITS AND THE NUMBER 77 FOR 

TS. 



THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL? 

WITS (D) ? 16 
LNIT 

<QUESTION 1> ? 75 
<QUESTION 2> ? 0-6 
QUESTION 3> ? 76 

UNIT 7 

^QUESTION 1> ? 

<QUESTION 2> ? 7-11, ,13-15 

^QUESTION 3> ? 77 



? r > 



THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A "j 

_IN ALL 16 TABLES. SLOT TWO RECEIVES THE VALUES 0,1,2 6 

IN TABLES THRU 6 AND A CONSTANT 6 IN TABLES 7 THRU 15. 
SLOT THREE RECEIVES A CONSTANT 76 IN ALL 16 TABLES, 

THE SECONO TIME THRU THE SERIES, TABLES 7 THRU THE END ARE 

GOING TO BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS 

PRINTED OUT FOR THE THE OPERATOR IN THE FORM "UNIT XX" AT 

THE. BEGINNING OF EACH SERIES). QUESTION 1 IS RESPONDED TO 

BY A <CR>. SO SLOT ONE STAYS AT CONSTANT 75 IN TABLES 7 

THRU 15. SINCE NO NEW EXPLICIT VALUES ARE T.PED IN. SLOT TWO 
GETS THE VALUES 7,8,9,10.11 IN TABLES ? THRU 11, ANO 
GETS AN 11 IN SLOT 12, AND GETS THE VALUES 13,14.15 IN 

TABLES 13 THRU 15. SLOT THREE GETS THE VALUE 77 IN TABLES 7 
THRU 15. 

THE DIALOGUE IS TERMINATED WHEN THE, SOFTWARE RECOGNIZES THAT 
16 EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION 
-CNAMEL-Y--QUEST-IQN-2-K — 



SEQ 0015 



D, : 
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729 
750 
?3l 
732 
733 
734 
735 
73b 

7?; 

738 
739 
740 
741 
742 
743 
744 
745 
746 
74 7 
748 
749 
750 
751 
75? 
755 
754 
755 
756 
757 
756 
759 
760 
761 
762 
763 
764 
765 
766 
76 7 
768 
769 
770 
771 
772 
775 
7 74 
775 
7 76 
777 
7 78 
779 
780 
781 
782 
78 5 
-784 
785 
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7,0 TEST DESCRIPTIONS 



************** 



TEST t <DMV-U AVAILABILITY* 



* 

* EACH NORMALLY USED CSR IS ACCESSED WITH A "TST" OR "TSTB" INSTRUCTION ANO IF 

* A BUS TIMEOUT OCCURS (INTERRUPT S VECTOR ADOR 4) A FLAG WILL BE SET SHOWING 

* WHICH CSR ADDR AND INSTRUCTION FAILED. "U.HSW" REFLECTS "TST" INSTRUCTIONS 

* AND "U.HSB" REFLECTS "TSTB" INSTRUCTIONS. 

* EXAMPLES; 

* IF "TSTB S6SEL1" FAILS, BIT 1 OF "Tl.HGB" WILL BE SET, 

* IF "TST SSEL4" FAILS. BIT M OF "U.HSW" WILL BE SET 

* (NOTE: ONLY EVEN BITS IN "U.HSW" CAN BE SET). 

♦ 

* THE FLAG WORDS ARE OUTPUT IN BINARY AS "EXTENDED ERROR INFORMATION", 



♦ TEST Z <MASTER CLEAR, RUN MICR00IAGN0STICS> 

* 

♦ A MASTER CLEAR IS ISSUED TO THE DMV-U. ANO THE PROGRAM ALLOWS SUFFICIENT 

♦ TIME FOR THE MICROOIAGNOSTICS TO BE PERFORMED. THESE MICROOIAGNOSTICS RESIDE 

♦ IN 6502 PROGRAM MEMORY, ANO THOROUGHLY VERIFY THE OPERATION OF THE 6502 

♦ MICROPROCESSOR CHIP. THEN, THtT CHECK OUT THE DATA RAM, THE 6502' S ACCESS TO 

♦ THE CSR'S. ANO PERFORM A SIMPLE MESSAGE TEST USING THE 6522 CHIP AND tHE 

♦ USYRT, WITH INTERNAL LOOPBACK, 
* 

♦ NEXT, THE LSI-11 PROGRAM READS \>^ THE CSR'S (SEL0-SEL6) ANO CHECKS THEM FOR 

♦ THEIR EXPECTED INITIALIZED STATES, IF AN ERROR HAS OCCURRED IN THE MICRO- 

♦ DIAGNOSTICS THE N^IBER OF THE FAILING TEST WILL BE FOUND IN SEL4, AND RUN 

♦ (BIT 7) WILL NOT BE SET IN BSEL1. 



♦ TEST 3 <CSR ADDRESSING* 

* 

♦ FIRST, HALT THE 6502 UP Bl CLEARING ALL CSRS. THEN, WRITE A DIFFERENT WORD 

♦ OF DATA PATTERN A INTO EACH OF BSELO 17, AND AFTER EACH WRITE, READ AND 

♦ COMPARE ALL REGS TO EXPECTED VALUES. 

* 

♦ DATA PATTERN A - 001, 002, 004, 010, 020, 040, 100, 200, 052, 500, 140, 

♦ 060. 030, 014, 006, 003 



TEST 4 <CSR REGISTERS DATA RFAD/WRITF* 



SEQ 0016 



* WRITF, READ, AND COMPARE F r.CH OyTL 0* DATA PATTFRN B INTO RtulSTFR BSKO, 

♦ THEN, REPEAT THIS USTNG EACH OF \H{. REMAINING CSR'S, BSELl BSH 1 \ WHEN BSfcU 
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786 

78; 

788 
789 
790 
791 
792 
793 
794 
795 
796 
707 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 

8ie 

819 
820 
821 
822 
823 
824 
825 
826 
827 

828 
829 
8?0 
831 
832 
033 
834 
835 
836 

ei7 

838 
839 
840 
841 
84^ 
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SEQ 0017 



IS BEING TESTED. THE PROGRAM ALWAYS SE T S BIT 7 IN THE DATA PATTERN SO THAT 
RUN WILL NOT BE CLEARED, AND IT ALWAYS CLEARS BIT6 SO THAT MCLR WILL NOT BE 
SET. 

DATA PATTERN B • 125, 252, 000, 377, 001, 002, 004, 010. 020, 040. 100. 

200. 376, 375, 373, 367, 357, 337, 277, 177. 000 

+. + + + *+. *+. + *.*.+. + + + + + + + ++.+.**+ + * + +.*. + + + + +. + * + *+ + + + + lb +, + + +. + +, + ++ + + mm tmmm t + k 

***********#***#* + *#*#*##* **♦♦**************+*****<» + *♦********** + + ** + /,, + + + + + 

TEST 5 <BASIC MASTER CLEAR> 

PERFORM AN INITIAL MASTER CLEAR, WRITE 356 INTO BSELO AND READ AND CHECK IT. 
THEN, ISSUE A MASTER CLEAR AND READ AND CHECK BSELO FOR 000. 

+ + + + + ****. + + + + * + + + * + + + ** + + + ****** + + ******, + ** + ********** + i.*i.*t***ttt.*mmm 

TEST 6 <B»JS RESET* 

PERFORM AN INITIAL MASTER CLEAR. WRITE 377 INTO BSELO AND READ ANO CHECK 
IT. THEN, ISSUE A RESET INSTRUCTION, STALL FOR COMPLETION, AND READ AND 
CHECK BSELO FOR 000. 

a*************************************************************************** 

TEST 7 <CSR, MAINTENANCE MICROCODE INTERACTION 

ThIS TEST INVOKES THE MAINTENANCE REQUEST MECHANISM THROUGH UHICH THE LSI -11 
ANO 6502 CAN COMMUNICATE. FIRST, A MASTER CLEAR IS DONE WITH ONLY BIT 
(M*EQ) SET IN BSEL1. THE PROGRAM THEN CHECKS FOR THE SETTING OF BSEL2 BIT 7 
(MflDY) BY THE MAINTENANCE MICROCODE UITHIN ABOUT 50 MICRO-SEC, AND IF MRDY 
DOES NOT GET SET, AN ERROR IS REPORTED, 

NEXT, THE PRCGRAM LOADS SEL4 WITH 000010 AND BSEL6 WITH 125. THEN, ALL CSR'S 
ARE READ ANO CHECKED FOR EXPECTED CONTENTS. 

BSEL2 IS THEN LOADED WITH A WRITE COMMAND, WHICH SHOULD CAUSE THE MICROCODE 
TO TRANSFER THE 125 INTO BSELO. ALL CSR'S ARE THEN READ AlO CHECKED FOR 
EXPECTED CONTENTS, 

THEN. THE PROGRAM LOADS 252 INTO BSELO AND READS AND CHECKS ALL CSR'S. BSEL2 
IS THEN LOADED WITH A READ COMMAND, WHICH SHOULD CAUSE THE MICROCODE TO 
TRANSFER THE ?^2 INTO BSEL6, ALL CSR'S ARE READ AND CHECKED. 

*************** ***********#****,******** + *******#***** ********#********# 1 #***4 

***********♦***♦♦♦♦♦♦♦♦♦♦♦ ti + i + tm + mmmmmmmm + mmmmm 
TEST 8 <RUN FLIP-FLOP* 

THE PROGRAM PUTS THE MICROCODE INTO THE MAINTENANCE LOOP. A 125 CHARACTER 
IS LOADED INTO BSEL6 ANO A REQUEST IS MADE TO WRITE THE CONTENTS OF BSEl> 
INTO BSELO, THE PROGRMM THEN READS ANO CHECKS BSELO TO CONTAIN 125. 
NEXT. THE RUN FLIP-FLOP IS CLEARED BY LOADING A INTO RUN (BSEL1 BIT : t . 
BSELO IS THEN CLEARED AND r H£ REQUEST IS MADE AGAIN TO WRITE THE CONTENT'., 
OF BSEL6 INTO BSELO. THE PROGRAM STALLS FOR 50 MICRO-SEC. AND CHECKS V OR 



F? 
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843 
644 

845 
846 

84 7 
848 
849 
850 
851 
852 
855 
854 
855 
856 

85 7 
858 
859 
860 
861 
662 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
676 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
88 7 
888 
889 
890 
891 
89? 
893 
894 
895 

'896 

89; 

-898 

8<** 
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»♦ MRDY CBSEL2 BIT 7) NOT SET, AND BSELO STILL CLEARED. 

{ * THEN, THE PROGRAM SETS THE RUN FLIP-FLOP AGAIN BY LOADING A 1 INTO RUN, 

I* AND CHECKS FOR MRDY SET WITHIN 50 MICRO-SEC. AND BSELO - 125. 

j******+****+***********+*************************** ************************** 



SEQ 0018 



J* 
I* 
J* 
I* 
i* 
1 + 
i + 
$* 
i* 
;* 
j + 



**************************************** ♦ ** *********** **** ****************** 
TEST 9 <LOW RAM (00-OF) SCRATCHPAD* 

THIS TEST FIRST PERFORMS AN ADDRESSING TEST OF RAM LOCATIONS (00-OF). BY 
WRITING THE ADRS INTO EACH LOCATION AND AFTER EACH WRITE, ALL THE LOCATIONS 
ARE READ AND CHECKED FOR EXPECTED CONTENTS. 

THEN, THE TEST PERFORMS READ/WRITE DATA TESTING OF RAM LOCATIONS 00 -OF, 
BY WRITING, READING, AND COMPARING ALL BYTES OF DATA PATTERN B IN EACH 
LOCATION, 

DATA PATTERN B - 125, 252, 000, 377, 001, 002, 004, 010, 020, 040, 100, 

200, 376, 3/5, 373, 367, 357. 337. 277. 177. 000 
********************** ****************************************************** 



**************************************************************** ************ 
TEST 10 <DATA RAM MOVING INVERSIONS (LOC'S 0018-01FF HEX)> 

GENERAL DESCRIPTION: 

FIRST, THE 2K BYTE LOCATIONS IN RAM ARE LOADED WITH O'S (SEE NOTE BELOW). 
THEN, THE FIRST LOCATION IS READ ANO CHECKED. A SINGLE 1 IS WRITTEN INTO 
THE LOW BIT POSITION, ANO THIS IS READ ANO CHECKED. THIS IS DONE FOR ALL 
BYTES IN THE RAM, BY INCREMENTING THE ADDRESS TO POINT TO THE NEXT RAM 
LOCATION. 

THEN, THE NEXT BIT POSITION IS CHOSEN TO INSERT A 1 . ANO ALL LOCATIONS 
ARE READ, WRITTEN, AND READ AS BEFORE. THIS IS CONTINUED FOR ALL BIT 
POSITIONS LNTIL THE ENTIRE RAM IS WRITTEN TO ALL l'S. THE ABOVE OPERATIONS 
ARE PERFORMED A SECOND TIME, WITH O'S INSERTED INTO THE RAM INSTEAD OF l'S, 
THIS RESULTS IN THE ENTIRE RAM BEING WRITTEN TO ALL O'S. 

THIS TEST CONSTITUTES A THOROUGH TEST OF THE RAM. IT IS CAPABLE OF 
DETECTING THE FOLLOWING FAULTS ; STUCK ADDRESS BITS. UNI- AND BI-DIRECT- 
IONAL COUPLING BETWEEN ADDRESS BITS, STUCK MEMORY BITS, ANO UNI- ANO 
BI-DIRECTIONAL COUPLING BETWEEN MEMORY BITS IN BOTH ROWS AND COLUMNS OF THE 
MEMORY MATRIX. 

NOTE: 

THIS TEST DOES NOT CHECK LOCATIONS 0010-001F, SO THAT THE PRIMARY CSR' C 

ARE NOT WRITTEN. IT DOES TEST LOCATIONS OOOO-OOOF (SCRATCHPAD RAM) ANO 

LOCATIONS O020O02F (SECONDARY CSR'S). AS WELL. AS 0030-0800 (BASIC RAM). 

THE "TMPO" REGISTERS ARE USED HERE TO CONTAIN THE VARIOUS CONSTANTS t 
VARIABLES USED THROUGHOUT THIS TEST. A LIST UF THEIR ASSIGNMENTS SEEMS 
USEFUL 50 HERE IT ISs 



TMPO 
TMP1 

TMP2 
TMP3 



POINTS TO THE FIRST LOCATION AFTER THE SELECT REGISTERS, 

TEST PATTERN ID CODE UNUSED Bl THIS TEST. 
TEST DATA PATTERN INDEX -- UNUSED BY THIS TEST. 
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900 
901 
902 
903 
904 
90S 
906 
90 7 

908 
909 

910 
911 
91? 
913 
914 
915 
916 

91 ; 

918 
919 
920 
921 
92? 
923 
924 
925 
926 
92 7 
928 
929 
930 
931 
932 
933 
93- 
935 
93o 
937 
938 
939 
940 
941 
94? 
94 3 
944 
945 
946 
94 7 
948 
949 
950 
951 
95? 
"954 
954 
—955 " 
**0 
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SEQ 0019 



TMP4 TEST DATA PATTERN. THE HIGH BYTE IS THE PATTERN BEING WRITTEN 
ON ANY GIVEN PASS AND THE LOW BYTE IS THE PATTERN THAT WAS 
WRITTEN BY THE PREVIOUS PASS THROUGH THE RAM, 

TMP5 DATA READ FROM THE RAM, ONLY THE LOW BYTE IS USED. 

TMP6 

TMP7 

TMP8 

TMP9 - - - - 



ThPA 
TMPB 

TMPC 

TMPD 
TMPE 
TMPF 



RAM ADDRESS BEING TESTED. 

BIT POINTER. NUMBER OF THE BIT WITHIN THE DATA FIELD WHICH IS 
BEING SWITCHED ON EACH WRITE WITHIN THE CURRENT PASS. 

DAfA FLAG. BIT OF THIS WORD IS THE VALUE TO WHICH THE BIT 
IDENTIFIED IN TMPB IS BEING SET ON EACH WRITE IN THE CURRENT 
PASS. 



DIRECTION SWITCH. - FORWARD 



NON-ZERO - BACKWARD 



LAST VALID ADDRESS TO BE TESTED. (I.E. THE END OF RAM) 



;♦ 
i* 
i* 

{♦ 
I* 

»♦ 

j* 

}* 

3* 
i* 
J ♦ 
}♦ 
J* 
i + 
I* 
"I* 
\* 



ERROR FLAGS. BIT 1 SET ■ THE LAST DETECTED ERROR WAS THE READ 
OF THE PREVIOUS DATA BEFORE WRITING THE NEW DATA. IF BIT? IS 
SET. THE READ AFTER WRITE FAILED. IF EITHER IS SET WHEN AN 
ERROR IS DETECTED, THE SUPERVISOR IS NOT CALL'D AND THEREFOR 
IT'S ERROR COUNTER WILL NOT REFLECT THE ERROR -- INSTEAD, THE 
DATA LINE IS PRINTE0. (UNLESS THE ERROR HANDLER'S DATA LINE 
PRINT COUNT HAS EXCEDED ITS LIMIT - IN WHICH CASE ITS 
INVOCATION IS IGNORED. ) 

+ + ****+ + +.****++ + ** + + * + * + ***4. + * + * + + + + **+. + +. + * + ****tmmmmm + 4.mmm 4 . 

TEST 11 <VIA REGISTER ADRESSING> 



VIA 



"6522 VERSATILE INTERFACE ADAPTER" 



A MASTER CLEAR IS PERFORMED, NEXT, TIMER 1 LATCHES 
ARE CLEARED BY WRITING 000 INTO VIA REGS 6 t 7 

THEN, 377 IS LOADED INTO DATA DIRECTION REGISTERS A, B (DORA.DDRB) TO 
SET THE PORT PINS FOR OUTPUT MODE. 

THEN, A DIFFERENT BYTE OF DATA PATTERN C IS WRITTEN INTO EACH VIA 
LOCATION, (EXCEPT THE TIMER REGS 4,5.10. It OCT) AND AFTER EACH IS WRITTEN, 
ALL VIA REGS (EXCEPT 4,5,10,11) ARE READ AND COMPARED TO EXPECTED 
C0NTENT5. NOTE THAT SOME VIA REGS ARE ALTERED Bt THE LOADING OF OTHERS. 
ANO THE PROGRAM TAKES THIS INTO ACCOUNT, IN THE SETTING OF EXPECTED RIG 
VALUES. THE DATA PATTERN IS CHOSEN TO AVOID ACTIVATING THE VIA CHIP (SUCH 
AS GENERATING OUTPUTS ON CAl, CA2, CB1, CB2, OR CAUSING 6502 
INTERRUPT REQUESTS). 
DATA PATTERN C (WITH 
REGISTER * 00 01 
DATA - 100, 101 



VIA REGS AND THEIR DATA SHOWN IN OCTAl ) 
02 03 06 07 12 13 14 15 
377, 377, 106. 107, 11?. 040, 042, 000, 



It 
200, 
NEXT, 000 IS LOADED INTO DDRA, AND DDR3 IS READ AND COMPARED TO 377 



1 ' 
11 ' 
THEN, 



CNOMAAO OMVll MCTRL DIAG n 
PROGRAM DOCUMENT 

957 

<>S8 
45*1 

%0 
461 
962 
965 
964 

965 

9b6 
9t>7 
968 
969 
9 TO 
9 71 
972 
975 
9 74 
975 
976 

9/; 

9 78 

9/4 

980 
981 
98^ 
983 
984 
985 
936 

98 7 
988 
>d9 
940 
941 
992 

99 5 
994 
995 
996 
94 7 
998 
999 

1000 
1001 
1002 
1003 
1004 
1005 
10C6 
100/ 
1008 
1009 
1010 
1011 
-1012 - 
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j* THE 377 IS LOADED BACK INTC DDRA, AND DDRB IS LOADED WITH 000 AND DDRA 15 
l* READ AND COMPARED TO 377. 

}♦++++*++* ** + + * + * + ♦♦«;»♦**♦*******#******♦**** *******************i-U + ** + + * + + * + * + A 

{* TEST 12 <VIA'S DDRB DATA READ/WRITE* 

J* 

t* DDRA •- "DATA DIRECTION REGISTER B" 

}♦ FIRST, A MASTER CLEAR IS PERFORMED. THEN j 

;* READ/WRITE HITS 0-7 OF VIA DATA DIRECTION REGISTER 8 ARE TESTED BY WRITING. 

j* READING, AND COMPARING EACH BYTE OF DATA PATTERN B. 

,♦ DATA PATTERN 3-125, 252, 000, 377, 001, 002, 004, 010, 020, 040, 100, 

I* 200, 376, 375, 373, 367, 357, 337, 277. 177. 000 

; +.*.*. + *.**. + +,*. + + +, +,+.+.±+.± + + 4,4. + +.* + + *.*± + + ±4,4. +, + *, + + + + * + + +.** + + + + * + +,+,+, + 4, + *.** + + + + + + + + + + + + + 



SEQ 0020 



J* 
i* 

}* 
{♦ 
i* 
t + 
;* 

;♦ 
:* 



}* 
{♦ 
J* 
J* 
!♦ 
J* 
{* 
}♦ 

;* 
? + 
I* 
i * 



**. + *+* + * + + ** + *.+.* + * + + ++ + + *.* + + *++* + + + + + + + + + + + * + + +*+++ + + + +, + + + + +, + +,*, + + *+. + tt. + +,tt + t 

TEST 13 <VIA'S DDRA DATA READ/WRITE> 



DDRA 



"DATA DIRECTION REGISTER A 



FIRST, A MASTER CLEAR IS PERFORMED. THEN : 

READ/WRITE BITS 0-7 OF VIA DATA DIRECTION REGISTER A ARE TESTED BY WRITING, 

READING, AND COMPARING EACH BYTE OF DATA PATTERN B. 

DATA PATTERN B - 125, 252, 000, 377, 001, 002, 004, 010, 020, 040, 100, 

200, 376, 375, 373, 367, 357, 337. 277. 177. 000 

TEST 14 «VIA'S ORB DATA READ/WRITE> 



ORB 



"OUTPUT REGISTER PORT B" 



FIRST. A MASTER CLEAR IS PERFORMED, NEXT. 377 IS LOADED INTO DATA 
DIR. REG. B (DDRB) TO SET ALL B PORT PINS FOR OUTPUT MODE. THEN , 
READ/URITE BITS 0-7 OF VIA OUTPUT REG. PORT B ARE TESTED BY WRITING, 
READING. AND COMPARING EACH BYTE OF DATA PATTERN B. 

DATA PATTERN B - 125, 252, 000, 377. 001, 002, 004, 010, 020, 040, 100. 

200, 376, 375, 373, 367. 357. 337. 277. 177. 000 



4i*4444***4>*4**^*4«4^44*<*>4>4i*4*4*****«**««»44>44^44444444^«44444«444444444«44^44 

♦ TEST 15 <VIA'S Tl DATA READ/WRITE > 
Tl *• "TIMER 01" 

THIS TEST WRITES. READS, AND CHECKS THE Tl lATCHES AND COUNTER REGISTERS 
WITH DATA PATTERNS IN EACH OF 3 SUBTESTS, 



* 
* 
♦ 
* 
* 
i ♦ 

* 



first subtest: checks for propfr loading of latches 

it also checks to be sure that the counter appears to be doing 
something to " me coun'ers. as long as thf.i have changed from the 
value loaded into them, we will. be satisfied. 



CNDNAAO DMV11 MCTRL DIAG til 

PROGRAM DOCUMENT 

1014 
1015 
1016 
101" 
1018 
1019 
1020 

1021 

1023 
1024 

1025 
1026 

102/ 

102a 

1029 
1050 
1031 
105? 

1035 

1034 

1035 

.1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

104b 

104 ' 

1048 

1049 

1050 

1051 

105.? 

1053 

1054 

1055 

1056 

105/ 

1058 

1059 

lObO 

1061 

106? 

1065 

1064 

1065 

1066 

1 06 / 

10'jH 

1069 

10 ?0 



MACRO M1?00 



12 
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SEQ 0021 



A. A MASTER CLEAR 15 PERFORMED. 

B. ALL LATCHES ARE .OADED TO ZEROES CJUST IN CASE). ACR6 L ACR7 ARE SET 
TO ZERO (MODE 00), AND "Tl" INTERRUPT ENABLE FLAG IS CLEARED. 

C. T1L-LCADR 04) IS LOADED WITH THE CURRENT BfTE OF DATA PATTERN B. 

D. T1L-LCA0R 06) IS READ AND COMPARED TO THE RYTE JUST WRITTEN. 

E. T1C-LCADR 04) IS READ AND CHECKED TO BE DIFFERENT THAN THE TEST BfTE. 

F. T1L-LCADR 06) IS LOADED WITH THE COMPLEMENT OF THE CURRENT DATA BYTE. 

G. TIL -LCADR 06) IS READ AND COMPARED TO THE BYTE JUST WRITTEN. 

H. TIL -LCADR 06) IS RE-LOADED WITH TO MAKE T1C-H DECREMENT FAST. 

T1L-HCADR 05) IS LOADED WITH THE ORIGINAL TEST DATA PATTERN BYTE. 

I. T1L-HCADR 07) IS READ AND COMPARED TO THE BYTE LOADED INTO TIL-ri. 

J. T1C-HCADR 05) IS READ AND CHECKED TO BE DIFFERENT THAN THE TEST BYTE. 

K. TlL-HCADR 07) IS LOADED WITH THE COMPLEMENT OF THE CURRENT DATA BYTE, 

L. TlL-HCADR 07) IS READ AND COMPARED (0 THE BYTE JUST LOADED, 

M. STEPS C-L ARE REPEATED USING EACH BYTE OF DATA PATTERN 0. 



SECOND SUBTEST: 



CHECKS FOR CROSS -TALK AND ADDRESSING ERRORS 
FROM T1L-L TO TLL-H 



A. TlL-HCADR 07) IS LOADED WITH 000 TO CLEAR IT. 

B. T1L-LCADR 06) IS LOADED WITH A BYTE OF DATA PATTERN B. 

C. Til -LCADR 06) IS READ AND COMPARED TO THE DATA JUST WRITTEN 

D. TlL-HCADR 07) IS READ AND COMPARED TO 000. 

E. STEPS B-D ARE REPEATED USING EACH BYTE OF DATA PATTERN B. 



THIRD SUBTEST: 



CHECKS FOR CROSS TALK AND ADDRESSING ERRORS 
FROM T1L-H TO TIL -L 



T1L-LCADR 
TlL-HCADR 
TlL-HCADR 
T1L-LCADR 
STEPS B-D 



04) 
07) 

on 

06) 
ARE 



IS LOADED WITH 000 TO CLEAR IT 

IS LOADED WITH A BYTE OF DATA PATTERN B. 

IS READ AND COMPARED TO THE DATA JUST WRITTEN. 

IS READ AND COMPARED TO 000. 

REPEATED USING EACH BYTE OF DATA PATTERN B. 



DATA PATTERN B 



125, 252, 000, 377, 001, 002, 004, 010, 020, 
200, 576, 375, 373. 36 7, 357. 337, 277, 177, vw 



040, 
000 



100, 



!• TEST 16 <VIA'S SR DATA READ/WRITE > 
.* 

i* SR -■ "SHIFT REGISTER" 

} ♦ 

i* FIRbT. A MASTER CLEAR IS PERFORMED AND THE ACR IS SET TO 000. THEN : 

j* RtAD'URITE BITS 0-/ OF VIA SHIf T REGISTER 4RE TESTED BY WRITING, READING 

i ♦ 

J* 



AND COMPARING EACH B> U 
DATA PATTERN B - 125 



OF DATA PATTERN B. 
252, 000, 377, 001, 



002, 004, 010, 020, 040, 100. 



Jc 



) 



CNOHAAO OhVlt MCTRL OlAG til 

PROGRAM DOCUMENT 

1071 
10/.? 
1075 
1074 
10/5 
10/6 
10// 
1070 
1079 
1080 
1081 
1082 
1085 
1081 
1085 
1086 
1087 
1088 
1089 
109C 
1091 
1092 
10'»5 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1115 
1114 
1115 
1116 
1117 
ll 1 , 
1119 
11?0 
1121 
1122 
1125 
1124 
1125 
-11 26 
1127 
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200, 376, 375, 373, 367, 357. 337, 277. 177, 000 
**.***♦ + *** + ******* + ******** + * + * + * + + + *■' + + + + * + * + + + * + + ** + + + + #**+ + + * + * + **** + + *♦* 



TEST 17 <VIA'S ACR DATA READ/W3ITE> 



ACR 



"AUXILIARY CONTROL REGISTER" 



FIRST, A MASTER CLEAR IS PERFORMED. THEN : 

READ/WRITE BITS 0-7 OF THE ACR ARE TESTED BY WRITING, READING, 

AND COMPARING EACH BYTE OF DATA PATTERN B. 

DATA PATTERN B - 125, 252, 000, 377, 001, 002, 004, 010, 020, 0<0, 100, 

200, 376. 375. 373, 367, 337. 337. 277. 177. 0"0 
*+************** + ***************************♦.*********♦******#***+ .** + + + + ♦ + * 

TEST 18 <VIA'S PCR DATA READ/WRITE> 



PCR 



"PERIPHERAL CONTROL REGISTER" 



FIRST, A MASTER CLEAR IS PERFORMED. THEN : 

REAO/WRm BITS 0-7 OF THE PCR REGISTER ARE TESTEC B* WRITING, READING. 

AN© COMPARING EACH BYTE OF A SUBSET OF DATA PATTERN B. 

DATA PATTERN B (SUBSET) - 125, 252, 000, 377, 001, 002, 004, 010, 020, 

040. 100. 200. 

TEST 19 <V1A'S IER DATA READ/WRITE* 



IER 



"INTERRUPT ENABLE REGISTER 



PITS 0-6 OF THE IER CAN BE SET OR CLEARED ON A WRITE, UNDER CONTROL OF THE 
SET/CLEAR CONTROL BIT 7. TO TEST THIS , EACH BYTE Of DATA PATTERN D IS 
WRITTEN INTO IER, ANO THE REGISTER IS READ AND COMPARED TO THE CORRESPOND 
ING BYTE OF DATA PATTERN E. 

DATA PATTERN D • 200. 201. 202, 204, 210. 220. 24C, 300, 200, 000, 001, 

002, 004, 010, 020. 040, 100. 000, 325, 125, 252, 052 

DATA PATTERN E • 000. 001. 003, 00/, 01/, 03/, 0//. 177, 1//, I//. 1/b, 

174. 170, 160, 140, 100, 000, 000, 125, 000, 052, 000 

TEST 20 <VIA S ORB/DDRB MASTER CLEAR TEST> 

ORB *« "OU T PUT REGISTER PORT «' 
DDRB •• "DATA DIRECTION REGISTER H" 

*IRST, A MASTER CLEAR IS PERFORMED. NEXT v 5/7 IS LOADED INTO DDRB TO £t 1 
i* ALL 8 PORT PINS FOR QUIWI MQOt. TM£N. A 000 BtTE IS WRITTEN INTO ORB AND 



SEQ 0022 



CNDMAAO OMVll MC 1 RL D1AU <>l 

PROGRAM DOCUMENT 

1128 
112* 

1130 
1131 
113? 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
115? 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
116/ 
1168 
1169 
1170 
11/1 
117? 
1173 
11 /4 
11/5 
11 /6 

ii/; 

11 /8 
11/9 

1180 

1181 

1182 

- -1 1 H 3 

1184 



l<2 
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SEQ 0023 



;♦ THE REGISTER IS READ BACK AND CHECKEO FOR 000. THEN, A MASTER CLEAR IS 
!+ PERFORMED AND ORB IS READ AND CHECKED FOR 377. 

J***************************************************************************** 

!♦ TEST 21 <VIA'S DDRB MASTER CLEAR TEST* 

; * 

;♦ DDRB -- "DATA DIRECTION REGISTER B" 

J* 

5* A 377 BYTE Is WRITTEN INTO DDRB AND THE REGISTER IS READ BACK AND CHECKED 

} * FOR 377. THEN, A MASTER CLEAR IS PERFORMED AND DDRB IS READ AND CHECKED FOR 

{♦ 000. 

;* 

}* NOTE: THIS TESTING IS ALSO DONE IN TEST 23. IT IS INCLUDED HERE ONLY TO 

j* PROVIDE TIGHTER LOOPING ON JUST THE DDRB MASTER CLEAR CHECKING. 

I* ******************************************* ************************* 4**4**4* 

;** ******************************************************************** ******* 

{♦ TEST 22 <VIA'S DDRA MASTER CLEAR TEST> 

{* 

5* DDRA -- "DATA DIRECTION REGISTER A" 

;* 

i* A 377 BYTE IS WRITTEN INTO DDRA AND THE REGISTER IS READ BACK AND CHECKED 
;* FOR 377. THEN, A MASTER CLEAR IS PERFORMED AND DDRA IS READ PND CHECKED FOR 
{* 000. 

;***************************************************** ************************ 

J***************************************************************************** 

j* TEST 23 <VIA'S SR MASTER CLEAR TEST* 

i* 

;* SR -- "SHIFT REGISTER" 

J* 

;* A 123 BYTE IS WRITTEN INTO SR AND 1 HE REGISTER IS READ BACK AND CHECKED 

;* FOR 123. THEN, A MASTER CLEAR IS PERFORMED AND SR IS READ AND CHECKED FOR 

{* NO CHANGE. 

I ***************************************************** ************************ 

;******************« ******************* *************************************** 

{♦ TEST 24 <VIA'S ACR MASTER CLEAR TEST> 

J* 

j* ACR «• "AUXILIARY CONTROL REGISTER" 

i* 

{♦ A 252 BYTE IS WRITTEN INTO ACR AND THE REGISTER IS READ BACK AND CHECKED 
{♦ FOR 252. THEN, A MASTER CLEAR IS PERFORMED AND ACR IS READ AND CHECKED FOR 
j* 000, TO VERIFY THAT IT IS CLEARED BY MASTER CLEAR. 

; ***************************************************************************** 



j **** fc* **************************** ******************************************* 

;♦ TEST 25 <VIA'S PCR MASTER CLEAR TEST> 
{♦ - 



PCR ** "PERIPHERAL CONTROL REGISTER" 



CNDMAAO DMV11 MCTRL D1AG 01 
PROGRAM DOCUMENT 

1185 

1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
119"' 
1198 
11^ 
1200 
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;♦ A 377 BYTE IS WRITTEN INTO PCR AND THE REGISTER IS READ BACK AND CHECKED 
i* FOR 377. THEN, A MASTER CLEAR IS PERFORMED AND PCR IS READ AND CHECKED FOR 
j* 000. 
• ************** ******* ****************************** ************************** 

{+****+***********************+*********++++********************************** 
{* TEST 26 <VIA'S IER MASTER CLCAR TEST> 

» + 

j+ IER ■■«■ "INTERRUPT ENABLE REGISTER" 

i* 

;* A 377 BYTE IS WRITTEN INTO IER AND THE REGISTER IS READ BACK AND CHECKED 

;* FOR 377, THEN, A MASTER CLEAR IS PERFORMED AND IER IS READ AND CHECKED FOR 

;* 200. 

;********************************************************* ******************** 



SEQ 0024 



M2 



CNDMAAO DMV11 MCTRL DIAG #1 

PROGRAM DOCUMENT 

1202 
1205 

1204 

1205 

1206 

120/ 

1208 

1209 

1210 

1211 

1212 

1215 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

3 222 

1225 

1224 

1225 

1226 

1227 

1228 

1229 

1250 

1251 

1252 

1255 

1254 

1255 

1256 

1257 

1258 

1259 

1240 

1241 

1242 

1245 
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SEQ 0025 



8,0 ERROR INFORMATION 



8.1 ERROR REPORTING 

ERRORS ARE REPORTED BY THE PROGRAM AS THEY OCCUR (IF NO i 
INHIBITED). THE REPORT CONFORMS TO THE DIAGNOSTIC SUPERVISOR 
ERROR REPORT FORMAT, AND CONSISTS OF A DESCRIPTION OF THE 
ERROR, THE TEST NUMBER, SUBTEST NUMBER, PC OF THE ERROR 
CALL, DEVICE ADDRESS, AND BASIC AND EXTENDED ERROR 
INFORMATION. 

THE FOLLOWING EXAMPLE PROVIDES A TYPICAL ERROR REPORT, WHICH 
DESCRIBES A "MASTER CLEAR FAILURE" ERROR, AND PROVIDES THE PC 
OF THE ERROR CALL AND THE DEVICE REGISTER CONTENTS : 

CNDMA DVC FTL ERR 00001 ON UNIT 00 TST 002 SUB 000 PC: 021122 
MASTER CLEAR FAILURE 

THE CONTENTS OF ALL BYTE SELECT REG'S ARE: 
BSELO BSEL1 BSEL2 BSEL5 
000 000 000 000 

BSEL4 BSEL5 BSEL6 BSEL7 
000 000 121 000 
BSEL10 BSELU BSEL12 BSEL15 
OOC 000 000 000 

BSEL14 BSEL15 BSEL16 BSEL17 
000 000 000 000 



FOR OTHER ERRORS, THE REPORT MAI BE MORE 
REQUIRE ADDITIONAL DATA TO BE REPORTED. 



EXTENSIVE, AND 



IF EXTENDED ERROR INFORMATION HAD BEEN INHIBITED USING THE 
IXE FLAG PRIOR TO RUNNING THE TEST, THE ABOVE ERROR WOULD 
HAVE BEEN REPORTED IN THE FOLLOWING SHORTENED FORM : 

CNDMA DVC FTL ERR 00001 ON UNIT 00 TST 002 SUB 000 PC: 021122 
MASTER CLEAR FAILURE 



CNDMAAO OMV11 MCTRt. 01 AG 01 
LISTING 6 ASSEMBLY CONTROL 
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SEQ 0026 



1245 






1246 






124 7 




000000 


1248 






1249 






1250 






1256 




)02000 


1257 






1258 






1259 


002000 




1260 






1261 


002000 




1262 






1263 






1264 




000001 


1265 




000001 


1266 




000001 


12b7 




000001 


1268 




000001 


1269 




000001 


1270 




000001 


1271 






1272 






1273 






1274 






1275 






1276 






1277 


002000 




1278 







.SBTT! 
HFLP*0 



TSTING 6 ASSEMBLY CONTROL 



CONTROL LISTING OF HELP INFORMATION 
HELP-0 NO LIST 
HELP-1 LIST 



,*2000 

.MCALL 
SVC 



SVC 



INITIALIZE SUPERVISOR MACROS 



BGNMOD LU1M0D 



$LSTIN« 1 
*LSTTAG* 1 



SVCINS> 
SVCTST 

svcsue 

SVCGBL 
SVCTAG 



; LIST INSTRUCTIONS, SHIi TED RIGHT 
} LIST TEST TAGS, SHIFTEP 3IGHT 
j LIST SUBTEST TAGS, SHIK.ED RIGHT 
} LIST GLOBAL TAGS, SHIFTED RIGHT 
! LIST OTHER TAGS. SHIFTED RIGHT 



CHANGE THE VALUES OF THE SVC... SYM80LS TO BE ZERO IF YOU WISH 
TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 
SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS. YOU MAY 
CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM. 

POINTER BGNAU.BGNDU.ERRTBL 



CNOMAAO DMVll MCTRL OlAG 01 
PROGRAM HEADER 



1287 
1286 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 



002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 
002042 
002042 
002044 
002044 
002046 
002046 
.002050 
002050 
..002051 
"002052 



103 
l«6 

104 
115 
101 
000 
000 
000 

101 

060 

000000 

000156 

040122 

000000 

002216 

000000 

040400 

000000 

000000 

000000 

000000 

002124 

000000 

000000 

OQQOOO 

00 3 

_SG4_ 
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.SBVTL PROGRAM HEADER 

\ ** 

l THE PROGRAM HEADER MACRO CHARACTERIZES THIS DIAGNOSTIC, THE 
iHEADER MACRO'S ARGENTS ARE FILE NAME, RELEASE LEVEL, PATCH 
^DISPOSITION OF THE MOST RECENT PATCH. MAXIMUM TEST TIME IN SEC, 
lANO THE TYPE OF DIAGNOSTIC (O-SEQUENTIAL t i-EXERCISER ) , THESE 
I ARGUMENTS ARE IN RESPECTIVE ORDER. 

I - 



SEQ 0027 



HEADER CNDMA,A,0,UO %# 



LINAME 



LIREV: 
L*DEPO 
LIUNIT 
L*TIML 
LIHPCP 
LtSPCP 
LIHPTP 
LISPTP 
LtLADP 
LISTA: 
L*CO: : 
L$DT>P 
"l.»APT: 
I iDTPt 
LIPRIO 
L$FNVI 
L IEXP1 
LIMREV 

LttFu 



.ASCII /Q/ 

.ASCII /N/ 

.ASCII /D/ 

.ASCII /M/ 

.ASCII /A/ 

.BYTE 

.BYTE 

.BYTE 



.ASCII 

.ASCII 

.WORD 

.WORD 

.WORD 

.WORO 

. WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.BiTfc 

.jaiiE- 



/A/ 

/o/ 



no. 

L*HARD 



L*HW 



L1LAST 









HDISPATCH 







CJRt VISION 
CALU1.1 



CNDMAAO DMVH MCTRL OIACi 01 
PROGRAM HEADER 



C3 
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002052 


000000 




002054 


000000 




002056 






002056 


000000 




002060 






002060 


003522 




002062 






002062 


000000 




002064 






002064 


000000 




002066 






002066 


000000 




002070 






002070 


020400 




002072 






002072 


020374 




002074 






002074 


000000 




0020 76 






002076 


003542 




002100 






002100 


104035 




002102 






002102 


002236 




002104 






002104 


017622 




002106 






002106 


020356 




002110 






002110 


020232 




002112 






002112 


017614 




002114 






002114 


000000 




002116 






002116 


000000 




002120 






002120 


oooooo 


12^/ 






1303 











SEQ 0028 




.WORO 









.WORD 







LiSPC: : 










.WORD 







LtDEVP: 










.WORD 


LJDVTYP 




LtREPPs 










.WORD 







L$EXP4j 










.WORD 







L$EXP5; 










.WORD 







LIAUT: : 










.WORD 


L$AU 




LtDUT: j 










.WORD 


l$DU 




LILUN: : 










.WORD 







UDESPi 


• 








.WORD 


LSDESC 




1.1L0AD: 


• 








EMT 


E*LOAD 




t $ETP: : 










.WORD 


L*ERRTBL 




L$ICPj: 










.WORD 


LSINIT 




L$CCP:: 










.WORD 


ItCLEAN 




L$ACP:: 










.WORD 


L$AUTO 




L$PRT :: 










.WORD 


L$PROT 




LSTESTj 


• 








.WORD 







LJDLt: : 










.WORD 







L*HIME; 


• 








♦ WORD 








.EVEN 



CMDHAAO 0MV11 NCTRL D1AG 01 
DISPATCH TABLE 



1505 

130b 
1307 

1308 
1309 
1310 
1311 
1312 



1313 



002122 
00212? 
002124 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
002146 
002150 
002152 
002154 
002156 
002160 
002162 
002164 
002166 
002170 
002172 
002174 
002176 
002200 
002202 
002204 
002206 
002210 
002212 



000034 



021146 
021256 
021450 
021612 
021734 
022136 
022646 
023214 
024162 
025142 
025764 
026046 
026130 
026232 
027276 
027360 
027442 
02 7526 
027614 
030102 
030232 
030362 
030516 
030646 
030776 
031134 
036366 
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PAGE 12 



5EQ 0029 



I ///////////////////// '/////////////////////////////////////////////////////// 

;/ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 

I / IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

1/ /////////////////////////////////////////////// ///////////////////////////// 



DISPATCH 



28. 



.WORD 


28 


LJDISPATCH: : 




.WORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


T7 


.WORD 


T8 


.WORD 


T9 


.WORD 


T10 


.WORD 


Til 


.WORD 


T12 


.WORD 


T13 


.WORO 


T14 


.WORO 


T15 


.WORD 


T16 


.WORD 


T17 


.WORD 


T18 


.WORD 


T19 


.WORD 


T20 


.WORD 


T21 


.WORD 


T22 


.WORD 


T23 


.WORD 


T24 


.WORD 


T25 


.WORD 


T26 


.WORD 


T27 


.WORD 


T28 



CNDMAAO DHVlt MCTRl. DIAG 41 
DEFAU.T HARDWARE P- TABLE 



1321 
1322 
13*? 5 
1324 
1325 
1326 

132; 

1 328 
1329 
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SEQ 0030 



.SBTTL DEFAULT HARDWARE P TABLE 

j ///////////////////// '////////////////////////////////////////////////////// 

\/ THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

1/ THE TEST -DEVICE PARAMETERS. THE STRUCTURE Or THIS TABLE 

;/ IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 

\ /'///////'//////////////// ///////////////////////////////////////////////// 



1330 
1331 
1352 
1333 
1334 
133? 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
134 3 
1344 
1345 
1346 
1 34 7 
1348 



002214 
002214 
002216 
002216 

002216 
002220 
002222 
002224 
002226 
002230 
002232 



000007 



160020 
000300 
004000 
000000 
000000 
000000 
000111 



BGNHW DFPTBL 



WORD 


160020 


WORD 


300 


WORD 


4000 


WORD 


000 


WORD 


000 


WORD 





WORD 


000 111 



L*HW: : 
DFPTBL:: 

lOMVll CSR UNIBUS ADDRESS 
lOMVll INTERRUPT VECTOR 
jDMVll INTERRUPT PRIORITY LEVEL 
jSWITCH REG, *1 (BOOT ADDRESS) 
i SWITCH REG. 02 (DDCMP ADDRESS) 
}H3254£H3255 USED 
jMISC. CONTROLS: 



.WORD L10000-L$HW/2 



POWER -UP MODE MASK • J 00 

» NOT JUMPERED FOR NODE POWER -UP 

1 - JLflPERED FOR MODE POWER -UP 

BOTH W5 C W6 REMOVED 



<... DEFAULT SETTING 



002234 
002234 



BAUD RATE CASK 
7 • 19.2 
11 - 56 K 

ENDHW 



77 



K 



<*•« DEFAULT SETTING 



L 10000: 



F3 
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SEQ 0031 
SOFTWARE P- TABLE 

1350 .SBTTL SOFTWARE P -TABLE. 

1351 

1353 i ///////////////////// V//////////////////////////////////////////////// 

1353 }/ THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 

1354 ;/ PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 

1355 \// ///////////////////////////////// //////////////////////////////////// 
1356 

1357 002234 BGNSW SFPTBL 

002234 000000 .WORD LlQQ01«L$SW/2 

002236 L$SW: : 

002236 SFPTBL:: 

1358 002236 ENDSW 

002236 L 10001: 



CNDMAAO DMV11 MCTRL D1AG 01 

GLOBAL EQUATES SECTION 

1360 
1561 
1362 
1363 
1364 
1365 
1366 
1367 
1368 002236 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000 100 
000040 
000020 
000010 
000004 
000002 
000001 
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SEQ 0032 



,SBTTL GLOBAL EQUATES SECTION 

///////////////////////////////////////////////////////////////////////////// 
/ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 

/ ARE USED IN MORE THAN ONE TEST. 

EQUALS 



! BIT DIFINITI 


BIT15-" 


. 100000 


BIT14-- 


- 40000 


BIT13-" 


• 20000 


BIT12-- 


• 10000 


BIT11-" 


- 4000 


BI T 10-« 


• 2000 


BIT09-' 


• 1000 


BIT03-> 


■ 400 


BIT07-' 


• LOO 


BIT06-- 


■ 100 


BIT05-« 


• 40 


BTT04-- 


■ 20 


BIT03-- 


• 10 


BIT02- 


- 4 


BIT01-' 


■ 2 


BITOO-' 


■ 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BITO/ 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3»» 


BIT03 


BIT2-- 


BIT02 


BIT1-- 


BIT01 


BITO-- 


BITOO 



j EVENT FLAG DEFINITIONS 
EF32tEF17 RESERVED FOR 



SUPERVISOR TO PROGRAM COMMUNICATION 



000040 
00005/ 
000036 
000035 
000034 



000340 
00C300 
000240 
0QQ2QO 



EF.START-- 3.' 

EF, RESTART-- 31 

EF, CONTINUE" 30 

EF.NEW-- 29 

EF.PWR-. 28 



PRIORITY LEVEL DEFINITIONS 



PRI07-- 
PRI06-- 
PRI05** 
PR1Q4»» 



340 
300 
240 

200 



j BIT POSITION IN SECOND STATUS WORD 

i l!00000) START COMMAND UAS ISSUEO 

j CO4JOOOO) RESTART COMMAND WAS ISSUED 

I (020000) CONTINUE COMMAND WAS ISSUED 

i t 010000) A NEW PASS HAS BEEN STARTED 

I IUU40QQ} A PQWER-FAIL/PQWER-UP OCCURRED- 



CNDMAAO DMVU MCTRL DlHG 01 

GLOBAL EQUATES SECTION 

000140 
OOO10O 
000040 
000000 



000004 
000010 
000030 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

1369 

15/0 

1371 

13/2 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1584 

138S 

1386 

138^ 

1388 

1389 

1390 

1391 

139? 

1393 

1394 

139S 

1396 

139/ 

1398 

1 399 

1400 

1401 

1402 

-14 1 

140* 
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SEQ 0033 



000020 



000070 
000071 
000072 
000074 
000075 
000076 
000010 



123000 
123001 



123004 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
UQQ001 



PRI03- 
PRI02- 
PRI01- 
PRIOO- 



140 
100 
40 




OPERATOR FLAG BITS 



EVL-- 4 

LOT-- 10 

ADR-- 20 

IDU-- 40 

ISR-- 100 

UAM-- 200 

B0E-- 400 

PNT-- 1000 

PRI-- 2000 

IXE-- 4000 

IBE-» 10000 

IER-- 20000 

LOE-- 40000 

HOE-- 100000 

.SBTTL DEFINE THE NUMBER OF CSR' S 

CSREGS - 16. 



i 



.SBTTL 
NPRAOL 
NPRAOM 
NPRAOX 
NPRAIL 
NPRAIH 
NPRAIX 
NPRBS7 



.SBTTL 
NPRDRL 
NPRORH 



NPR ADORESS 

- 70 

- NPRAOL *1 

- NPRAOL »2 

- NPRAOL *4 
■ NPRAOL » 5 
» NPRAOL ♦ 6 

- BIT3 



REGISTER EQUATES 

jOUT NPR ADRS LO REG 

j OUT NPR ADRS HI REG 

j OUT NPR EXTENDED ADRS REG 

{IN NPR AORS LO REG 

{ IN NPR ADRS HI REG 

i IN NPR EXTENDED ADRS REG 

I "BANK SELECT 7" BIT -- W/IN EXTENDED ADRS, REG 



NPR DATA REG EQUATES 
» 123000 
- NPRDRL ♦! 



j NPR 
}NPR 



DATA 
DATA 



REGISTER 
REGISTER 



-- LOW BITE 
-- HIGH BYTE 



.SBTTL NPR CONTROL REG EQUATES 

>4 



NPRCTL 


- 


NPRDRl 


NPRABT 


a 


BIT7 


NPRGO 


■ 


BIT6 


NPR 10 


■ 


BIT5 


LSIHLT 


» 


BIT4 


NPRBYT 


* 


BIT3 


DMVPU 


■ 


BIT2 


I SIDCL 


a 


Bill 


DMVDAI 


■ 


BITO 



■BUS* 



I NPR CONTROL REGISTER 

i-l IF BUS TIME OUT ON NPR 

j SET FOR NOP* CLEAR TO "GO" / 0-DONF . 1 

jO • (LSI ••> DMV){ I • (DMV •-> LSI) 

, SETTING THIS UILL "HALT" 1 HE LSI 11 !! 

(SET TO 1 TO WRITE BYTE ONLY TO LSI U 

iSET BY MICRO-DIAG. MUST REMAIN SE T ♦ • » 

ilf SFT, WILL CAUSE POWER OOWN CONDI! IQN IN LSI! 

i "DISABLE INXT" FRQW EFFECTING DHV-ii 



* SBTTL NPR REQUEST FUNCTIONS 



CNOMAAO OMVU MCTRt. OlAG 01 
NPR REQUEST FUNCTIONS 
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1405 

1406 

140 7 
1408 
140^ 
1410 
14U 
1412 
1413 
1414 
1415 
141b 

141 * 
1418 
1419 
1450 



000004 
000044 
000054 



1.^005 

000004 
000002 



000001 



SEQ 0034 



NPRl.D - DMVPU j WORD XFER 

NPRDL - DMVPUINPRIO j WORD XFER 

NPRDLB - DMVPUINPRIO'NPRBYT jBYTE XfER 



L5I 
DMV 
DMV 



■ a > 

H - > 



* = > 



DMV 
LSI 



.SBTTL INTERRUPT REG EQUATES 

IRQREG - 123005 

IRQA - BIT2 

IRQB ■ BIT1 



{INTERRUPT REQUEST REG 

j REQUEST BIT FOR XXO INTERRUPT -- "A" 

jREQUEST BIT FOR XX4 INTERRUPT -- "B" 



.SBTTL CONTROL FLAGS FROM P-TABLE ENTRIES 

PU24 * BITO iPOWER-FAIL VECTORING MODE. 1 « MODE 

; (I,E, JUMPERS W5 6 W6 BOTH REMOVED j 



J3 
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SEU 0035 
SWITCH PACKS 

1422 .S8TTL SWITCH PACKS 
1423 

1424 ;;**♦***************«********************************************************* 

1425 j* SWITCH PACKS 

1426 ; ; ********************************************* **************** *************** 
1427 

1428 121000 SWPBOT » 121000 j "BOOT ADDRESS" SWITCH PACK [A2O0] 

1429 121400 SWPDDCMP * 121400 j "OOCMP ADDRESS 1 * SWITCH PACK [A 300'] 
1430 



I<3 



CNDMAAO DMV11 MCTRL OIAG 01 
CSR REG, DEFINITION FOR MAINT 



1432 




1433 




1434 




1435 




1436 




1437 




1438 




1439 


000001 


1440 


000020 


1441 




1442 




1443 




1.444 




1445 




1446 




144/ 




1446 


000200 


1449 


000100 


1450 


000001 


1451 




1452 




1453 




1454 




1455 




1456 




1457 




1453 


000001 


1459 


000002 


1460 


000003 


1461 


000^04 


1452 


000005 


1463 




1464 


000200 
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LOOP 

.SBTTL CSR REG. DEFINITION FOR MAINT. LOOP 

; ********************* ******************************************************** 

. SBTTL MAINTENANCE REGISTER - BSELO 

; - -************************ ****************************** a******************** 

; INTERRUPT ENABLE BITS 



SEQ 0036 



IENBA 

IENBB 



BITO 
BIT4 



t INTERRUPT UNABLE "A" 
j INTERRUPT ENABLE "B" 



. ♦ ****************** ******************* ** ************ ***************** ******** 

.SBTTL MAINTENANCE REGISTER - BSEL1 

J-.*************************************************************************** 

; MAINT. LOOP CONTROL BITS; 



RUN 

MCLR 

MREQ 



BIT? 
BIT6 
BITO 



• tt ***********************. il *************************************************** 

.SBTTL MAINTENANCE REGISTER - BSEL2 

• - -************************ ****.*>*********************** ************* 4 . ******** 

i MAINTENANCE FUNCTION CODES 

{FUNCTION COOE FOR READ A 6502 LOCATION 
{FUNCTION COOE FOR WRITE A 6502 LOCATION 
{FUNCTION COOE FOR READ A 6502 MEMORY PAGE 
{FUNCTION CODE FOR URIT£ A 6502 RAM PAGE 
{FUNCTION COOE FOR EXECUTE AT GIVEN PC 

jM-LOOP REDY FOR A COMMAND WHEN SET 



REDLOC 


- 1 


WRILOC 


-■ 2 


REDPAG 


« 3 


WRIPAG 


* 4 


EXECUT 


~ 5 


MRDY 


• aiT7 



CNDMAAO DMV11 MCTRL DIAG til 
DMV INTERNAL ADDRESSES 



1466 




146? 




1468 




1469 




1470 




1471 




147? 




1473 




1474 




1475 




1476 




1477 


000020 


1478 


000020 


1479 


000021 


1480 


000022 


1481 


000022 


1482 


000023 


1483 


000024 


1484 


000024 


1485 


000025 


1486 


000026 


1487 


000026 


I486 


00002? 


1489 




1490 




1491 




1492 


120000 


1493 


120001 


1494 


120002 


1495 


120003 


1496 


120004 


1497 


120005 


1498 


120005 


1499 


120006 


1500 


120007 


1501 


120010 


1502 


120010 


1503 


120011 


1504 


120012 


1505 


120013 


1506 


120014 


1507 


120015 


1508 


120016 


1509 


120017 


1510 




1511 




1512 




1513 


000200 


1514 


000100 


1515 


000040 


1516 


000020 


151/ 


000010 


1518 


000004 


1519 


000002 


1520 


000Q01 


-1521 




1522 
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SEQ 0037 



.SBTTL DMV INTERNAL ADDRESSES 

j DMV INTERNAL ADDRESSES 

lOMOfifiM << MICROPROCESSOR REGISTER ADDRESS EQUATES >> #####«##* 
.SBTTL BYTE & WORD SELECT REGISTERS 



SLTO 


-020 




BSLTO 


-SLTO 




BSLT1 


-SLT0*1 




SLT2 


-SLT0*2 




BSLT2 


»SLT0*2 




BSLT3 


»SLT0*3 




SLT4 


-SLT0*4 




BSLT4 


-SLT0*4 




PSLT5 


-SLT0*5 




SLT6 


-SLT0*6 




BSLT6 


»SLT0*6 




BSL17 


•SLT0*7 




.SBTTL 




VIA'S 


ORB 


-120000 




ORA 


-0RB*1 




DDRB 


»0RB*2 




DORA 


-ORB* 3 




T1CL 


•ORB* 4 




T1CH 


-ORB* 5 




TlLHGO 


-ORB* 5 




TILL 


»0RB*6 




T1LH 


•ORB* 7 




T2LL 


-0RB*10 




T2CL 


•T2LL 




T2CH 


-0RB*11 




SR 


•ORB* 12 




ACR 


-0RB*13 




PCR 


-ORB* 14 




IFR 


-ORB* 15 




IENR 


-ORB* 16 




ORAM 


»0RB*17 




.SBTTL 




VIA' S 


IFRIRQ 


- r JIT? 


i"IRQ 


IFRT1 


-BIT6 


j"Tl" 


IFRT2 


-BIT5 


l"T2" 


IFRCB1 


-BIT4 


j"CBl 


IFRCB2 


•BIT3 


; "CB2 


IFRSR 


-B1T2 


;"5R" 


IFRCA1 


*BiTl 


j "CA1 


XFRCA2 


*bitg 


i "CA2 



•'I^R- REGISTER'S BIT ASSIGNMENTS 



HAS BEEN ISSUED 



LOGICAL "OR*' OF BITS 



— TIMER 1 TIMED-OUT 

- - TIMER O 1 TIMED-OUT 

' EDGE DETECTED C "K2 LINE UNIT STFP" Q/P SIGNAL FROM SR ) 
' EDGE DETECTED (UNUSED!) 
REGISTER COMPLETED SHIFT OPERATION 
1 EDGE DETECTED ( "K6 MOD RDl H") 



EDGE DETECTED 



C M KJ 



CTjj H") 



CNDMAAO DMV11 MCTRL DIAG #1 
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1773 






1774 






1775 






1776 






1777 






1778 






1779 






1780 






1781 






1782 






1783 






1784 


002236 
002236 






002236 


000000 




002240 


000000 




002242 


000000 




002244 


000000 


1785 






1786 






1787 






1788 






1789 


002246 




1790 


002246 


000000 


1791 


002250 




1792 


002250 


000000 


1793 


002252 




1794 


002252 


000000 


1795 


002254 




1796 


002254 


000000 


1797 


002256 




1798 


002256 


000000 


1799 


002260 




1800 


002260 


000000 


1801 


002262 




1802 


002262 


000000 


1803 


002264 




1804 


002264 


000000 


1805 


002266 


000000 


1806 


002270 


000000 


1807 


002272 


000000 


1808 


002274 


000000 


1809 


002276 


000000 


1810 


002300 


000000 


1811 


002302 


000000 


1812 


002304 


000000 


1813 






1814 






1815 






1816 






1817 


002306 


000000 


1818 


002310 


oooooc 


1819 


002ol2 


000000 


1820 


002314 


000000 


1821 


002316 


110400 


1822 


002320 


000007 


-1823 


-002322 


-000000 


1S24 


QQ2324 


QQQQQQ 



SEQ 0038 



.SBTTL GLOBAL DATA SECTION 

\/////// //////////////////////////////////////////////////////// ////////////// 

;/ THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 

;/ IN MORE THAN ONE TEST. 

\/ /////////////////////////////////////// //////////// //// ///////////////////// 

; * ♦******+*********+**********+*********+*****+*+***++***%**+********+*****+** 
.SBTTL CONTROL BLOCK FOR STACKED ERROR MESSAGES 

. . -*+:i******************** *********************** ********************* ******* * 



ERRTBL 



L$ERRTBL: : 



ERRTYP: 


i .WORD 





ERRNBR : 


: .WORD 





ERRMSG: 


: .WORD 





ERRBLK t 


: .WORD 






• t ************** *********************************************************** ♦ ** 

.SBTTL STORAGE FOR DEVICE REGISTERS 

. . -********************** *********************************** ******* *********** 

WSRO 



BSRO 


.WORD 





WSR2 






BSR1 


.WORD 





WSR4 






BSR2 


.WORD 





WSR6 






BSR3 


.WORD 





WSRK 


): 




BSR4 


.WORD 





usri; 


y . 




BSR5 


.WORD 





WSRK 


\; 




BSR6 


.WORD 





WSRK 






BSR7 


.WORD 





BSRK 


): .WORD 





BSR1 


L : . WORD 





bsri; 


2 i . WORD 





BSR1 


5: .WORD 





BSRK 


♦ : .WORD 





BSR11 


S: .WORD 





BSRK 


b i . WORD 





BSR1 


7: .WORD 






;++***************************************************+******+**************** 

.SBTTL MISCELLANEOUS STORAGE 

t - -******* *****************,*,***,*,* ************************************** ******* 

{TEST DATA 

{EXPECTED DATA 

{ACTUAL DATA 

{EXCLUSIVE OR BETWEEN "GDATA" £ "BDATA" 

{DELAY TIME, 3 INST., 500 MILLISEC. 

iDELAl TIME FOR M-LOOP FUNCTION. 100 USEC.APPRQX, 

{LOGICAL DEVICE NUMBER 

iCQHIAXNS BA$£ LfcV&L PROGRAM STACK PWNrtR 



TDATA: 


.WORO 





GDA'IA; 


.WORD 





BDATA; 


.WORD 





XOATA: 


.WORD 





DELAYls 


.WORD 


1104Q0 


DELAY2: 


.WORD 


7 


LOGDEV: 


.WORD 





PSIACKl 


.WORD 
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MISCELLANEOUS STORAGE 
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1625 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
.1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1843 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
18/3 
J.874 



002326 

002330 

002332 
002334 
002336 
002340 
002342 
002344 
002346 
002350 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



INTFLG 

INTWCH 

ERRFLG 
REGNUM 
FRSTIM 
FRSPAS 
DEVMAP 
DEVPTR 
CONSOL 
PFLAG: 



WORD 
WORD 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 














INTERRUPT RECEIVED FLAG BYTES. ALLOCATION: 

} LOW BYTE FOR "A" 6 HIGH BYTE FOR "B" 

{BYTE IS SET NON-ZERO WHEN HANDLER SHOULD BE 

5 WATCHING FOR INT'S. ALLOCATION: SEE INTFLG 

{ERROR FLAG 

I REGISTER NUMBER -- FOR PASSING ARG. TO "ERR4" 

jFLAG-O IF PROGRAM JUST LOADED 

jFLAG-0 IF FIRST PASS AFTER LOAD 

{BIT MAP OF ACTIVE DEVICES 

{DEVICE MAP BIT POINTER 

{CONSOLE DEVICE FLAG - - NON-ZERO 

{MISC. PROGRAM FLAGS 



NONE PRESENT 



SEQ 0039 



THE ABOVE WORD CONTAINS MISC. FLAGS WHICH CAN ONLY BE ACCESSED BY PATCHING. 
IT IS NOT INTENDED THAT THEY BE SET OR CLEARED EXCEPT UNDER VERY UNUSUAL 
j CIRCUMSTANCES. THEREFORE, THEY WILL NOT BE DOCUMENTED ANY OTHER PLACE 
EXCEPT RIGHT HERE. 

BIT -- WHEN SET, THOSE TESTS WHICH DO A BUS RESET WILL NOT BE EXECUTED. 
THIS WAS IMPLEMENTED TO SAVE WEAR S TEAR ON THE RX01 IN THE 
DEVELOPMENT SYSTEM WHILE DOING LONG TERM TESTING OF ALL OTHER 
TESTS. 

BIT 1 -- CPU TYPE. CNOT USED) 

BIT 2 -- CONTROLS PRINTING OF EXTENDED ERROR INFORMATION DURING "MOVING 
INVERSIONS TEST" OF RAM. NORMALLY ONLY ADDRESS, GOOD 6 BAD 
DATA, AND XOR WILL BE PRINTED. IF THIS BIT IS SET HOWEVER, 
INFORMATION IDENTIFYING WHERE WITHIN THE ALGORITHM THE ERROR 
WAS DETECTED IS REPORTED. THE FOLLOWING ABBREVIATIONS ARE USED 
IN THE HEADING: 

BiT --. IDENTIFIES THE INNERMOST LOOP, WHICH BIT IS. 
BEING INVERTED AT EACH LOCATION, BITS ARE 
IDENTIFIED AS THROUGH 7, 
DATA -- IDENTIFIES THE VALUE TO WHICH THE ABOVE BIT IS 
BEING SET (I.E. OR 1). IT IS FIRST READ AND 
CHECKED FOR EXPECTED CONTENTS } THEN THE BIT IS 
INVERTED TO THIS STATE (DATA) AND RE-WRITTEN 5 
THEN IT IS AGAIN R£AD £ CHECKED FOR THE NEW 
VALUE. 
SEQ --- INDICATES THE DIRECTION (FWD OR BKWO) THE TEST 

WAS SCANING THROUGH RAM WHEN THE ERROR OCCURED. 
LSB --« THIS IS THE LOGICAL LEAST SIGNIFICANT BIT OF THE 
RAM ADDRESS AS WE SCAN THROUGH MEMORY. BY 
VARYING THIS, THE ALGORITHM GE.MERPTS NON-SEQUEN- 
TIAL ADDRESSING QF RAM AND EFFECTS A MUCH MORE 
THOROUGH TEST QF MEMQRt. 



CNOMAAO DMV11 MCTRL 01 AG 0\ 
CURRENT DEVICE PARAMETERS 



1876 

187? 

18^8 

1679 

1880 

1881 

188c"! 

1885 

1884 

1885 

1886 

1887 

1888 

188^ 

1890 

1891 

1892 

1895 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1905 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1915 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 



002552 
0025^2 
002552 
002552 
002554 
002556 
002556 
OO2J60 
002362 
002562 
002564 
002566 
002566 
002570 
002572 
002572 
002574 
002576 
002576 
002400 
002402 
002402 
002404 
002406 
002406 
002410 

002412 
002414 
002416 



002420 
002422 
002424 
002426 
0024 50 
002452 
002454 
002436 



160000 



160000 
160001 

160002 
160005 

160004 
160005 

160006 
160O07 

160010 
160011 

160012 
160015 

160014 
160015 

160016 
160017 

000500 
000504 

000540 



000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



B4 
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.SBTTL CURRENT DEVICE PARAMETERS 



SEQ 0040 



JMPCSR 

MPCSR: 

BSELO: 

BSEL: 

SELO: 

BSELls 

BSEL2: 

SEL2: 

BSEL5: 

BSEL4* 

SEL4: 

BSEL5: 

BSEL6; 

SEL6: 

BSEL 7j 

BSEHOi 

SEL10: 

BSEL11: 

BSEL 12: 

SEL12: 

BSEL135 

BSEL14; 

SEL14: 

BSEL15: 

BSEL 16 : 

SEL16: 

BSEL17: 

MPIVECs 
MPOVEC; 
MPRIORs 



.WORD 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 

.WORD 

.WORD 

.WORD 

.WOfiD 

.WORD 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 

.WORD 



160000 



$MPCSR 
$MPCSR»1 

$MPCSR»2 
•MPCSR*5 

$MPCSR»4 
$MPCSR>5 

IMPCSR»6 

IMPCSR*7 

IMPCSR»10 
♦MPCSR *1 i 

*MPCSR»12 

$MPCSR*15 

$MPCSR*14 
$MPCSRU5 

♦MPCSR*16 
$MPCSR»17 

500 
504 
540 



I INITIAL ASSEMBLED IN CSR ADDRESS 

POINTER TO THE DMV11 CSR'S 

POINTER TO BSELO 

ALTERNATE NAME FOS BSELO 

POINTER TO SELO 

POINTER TO BSEL1 

POINTER TO BSEL2 

POINTER TO SEL2 

POINTER TO BSEL 5 

POINTER TO BSEL4 

POINTER TO SEL4 

POINTER TO BSEL5 

POINTER TO BSEL6 

POINTER TO SEL6 

POINTER TO BSEL 7 

POINTER TO BSEL 10 

POINTER TO SEL10 

POINTER TO BSEL 11 

POINTER TO BSEL12 

POINTER TO SEL12 

POINTER TO BSEL 15 

POINTER TO BSEL 14 

POINTER TO SEL14 

POINTER TO BSEL 15 

POINTER TO BSEL 16 

POINTER TO SEL16 

POINTER TO BSEL 1 7 



DMV11 
DMVil 
DMVU 



INPUT INTERRUPT VECTOR 
OU T PUT INTERRUPT VECTOR 
OEVIC£ PRIORITY 



SBTTL GEN'L PURPOSE SCRATCH STORAGE 



RtGO 
REG1 
REG2 
REG5 
REG4 
REG5 
REG6 
REQ7? 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
*WQRD 














C4 
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SCRATCH STORAGE TOR MESSAGE REPORTING 



SEQ 0041 



1923 

1924 

1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 



002440 
002442 
002444 
002446 
002450 
002452 
002454 
002456 
002460 
002462 
002464 
002466 
0024 70 
002472 
0024 74 
002476 
002500 
002502 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.SBTTL SCRATCH STORAGE FOR MESSAGE REPORT INf: 



TMPO 


.WORD 





TMP1 


.WORD 





TMP2 


.WORD 





TMP3 


.WORD 





TMP4 


.WORD 





TMP5 


.WORD 





TMP6 


.WORD 





TMP7 


.WORD 





TMP8 


.WORD 





TMP9 


.WORD 





TMPA 


.WORD 





TMPB 


.WORD 





TMPC 


.WORD 





TMPO 


.WORD 





TMPE 


.WORD 





TMPF 


.WORD 





NEWPCi .WORD 





OUDSPt ,WORD 






jSAVE LOCATION FOR A "PC" VALUE RESET 

I SAVE LOCATION FOR A STACK POINTER RESET VALUE 



CNDMAAO PMV11 MCTRl. DIAG tfi 
4**** DATA PATTERN A ***** 



MACRO 



1946 






194 7 






1948 






1949 


002504 


000020 


1950 


002506 


001 


1951 


002507 


002 


1952 


002510 


004 


1953 


002511 


010 


1954 


002512 


020 


1955 


002513 


040 


1956 


002514 


100 


1957 


002515 


200 


1958 


002516 


052 


1959 


002517 


300 


1960 


002520 


140 


1961 


002521 


060 


1962 


002522 


030 


1963 


002523 


014 


1964 


002524 


006 


1965 


002525 


003 


1966 






1967 






1968 






1969 






1970 


002526 


000026 


1971 


002530 


125 


1972 


002531 


252 


1973 


002532 


000 


1974 


002533 


377 


1975 


002534 


001 


1976 


002535 


002 


1977 


002536 


004 


1978 


002537 


010 


1979 


002540 


020 


1980 


002541 


040 


1981 


002542 


100 


1982 


002543 


200 


1983 


002544 


376 


1984 


002545 


375 


1985 


002546 


373 


1986 


00254 7 


367 


1987 


002550 


357 


1988 


002551 


337 


1989 


002552 


277 


1990 


002553 


177 


1991 


002554 


000 


1992 











D4 


200 22 


-FF.B-84 


15 i 22 PAGE 22 


, SBTTl. 


***** 


DATA PATTERN A ***** 


.EVEN 




I USAGE; 


RATA; 


.WORD 


PATB-PATA-2 \0 OF BYTES IN PATTERN 




.BYTE 


001 jBSELO 




.BYTE 


002 >BSEL1 




.BYTE 


004 jBSEL2 




.BYTE 


010 >BSE13 




.BYTE 


020 jBSEL4 




.BYTE 


040 ;BSEL5 




.BYTE 


100 »BSEL6 




.BYTE 


200 |BSEL7 




.BYTE 


052 iBSELlO 




.BYTE 


300 {BSELU 




.BYTE 


140 ;BSEL12 




.BYTE 


060 iBSEL13 




.BYTE 


030 jBS^L14 




.BYTE 


014 JBSEL15 




.BYTE 


006 1BSELI6 




.BYTE 


003 ;8SEL17 


.SBTTL 


***** 


DATA PATTERN B ***** 


.EVEN 




i USAGE: 


PATB: 


.WORD 


PATC-PATfa-2 ;0 OF BYTES IN PATTERN 




.BYTE 


125 




.BYTE 


252 




.BYTE 


000 




.BYTE 


377 




.BYTE 


001 




.BYTE 


002 




.BYTE 


00^ 




.BYTE 


010 




.BYTE 


OcO 




.BYTE 


040 




.BYTE 


100 




.BYTE 


200 




.BYTE 


3 76 




.BYTE 


375 




.BYTE 


375 




.BYTE 


3'-7 




.BYTE 


3-J7 




.BYTE 


61? 




.BrTh 


27? 




.BrTE 


1 ■ ' 




.BYTE 


000 



SEQ 0042 
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***** DATA PATTERN C ***** 
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SEQ 0043 



1994 








1995 








1996 








1997 








1998 








1999 


002556 


000012 




2000 


002560 


002 


377 


2001 


002562 


003 


366 


2002 


002564 


000 


100 


2003 


002566 


013 


040 


2004 


002570 


006 


106 


2005 


002572 


007 


107 


2006 


002574 


012 


112 


2007 


002576 


014 


042 


2008 


002600 


015 


000 


2009 


002602 


016 


200 


2010 








2011 








2012 








2013 


002604 


100 




2014 


002605 


000 




2015 


002606 


377 




2C16 


002607 


366 




2017 


002610 


000 




2018 


002611 


000 




2019 


002612 


106 




2020 


002613 


107 




2021 


002614 


000 




2022 


002615 


000 




2023 


002616 


112 




2024 


002617 


040 




2025 


002620 


042 




2026 


002621 


000 




202? 


002622 


200 




2028 


002623 


000 




2029 








2030 








2031 








2032 








2033 








2034 


002624 


000 




2035 


002625 


377 




2036 


002626 


OOO 




2037 


00262 7 


000 




2038 


002630 


377 




2039 


002631 


377 




2040 


002632 


000 




2041 


002633 


000 




2042 


002634 


377 




204 3 


002635 


377 




2044 


002636 


000 




2045 


00263 7 


000 




2046 


002640 


000 




204 7 


002641 


377 




2048 


002642 


200 




■204*. 


-Q02&43 


577- 





.S3TTL 

i 



.EVEN 
PATC; 



PATCR: 



PATCMj 



***** DATA PATTERN C ***** 

USED BY TEST XI TO LOAD UP THE VIA'S REGISTERS, THE REGISTER NUMBER 

LOADED IS THE FIRST BYTE AND THE VALUE LOADED INTO IT IS THE SECOND BYTE 



.WORD <PATCH-PA T C-2>/2 

.BYTE 2,377 

.BYTE 3,366 

.BYTE 0,100 

.BYTE 13,040 

.BYTE 6,106 

.BYTE 7,10/ 

.BYTE 12, 112 

.BYTE 14,042 

.BYTE 15.000 

,BYTE 16,^00 



SETUP ORB AS 
SETUP OKA AS 
LOAD UP ORB 
ACR 
TILL 
T1LH 
SR 
PCR 
IFR 
IER 



AN I/O (READ/WRITE) REGISTER 

AN 0/P REGISTER -- IT CAN'T BE TESTED! 



THIS TABLE IS THE LIST OF EXPECTED CONTENTS OF THE VIA'S REGISTERS 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BY T E 
BYTE 
BYTE 
BYTE 
BYTE 



100 
000 
377 
3b6 
000 
000 
106 
107 
000 
000 
112 
040 
042 
000 
200 
OOv 



THIS IS THE 
CONTENTS IS 



TABLE OF 
TESTED, 



ORB 

ORA 

DDRB 

DORA 

T1CL 

T1CH 

TILL 

T1LH 

T2CL 

T2CH 

SR 

ACR 

PCR 

IFR 

IER 

ORA 



TEST PATTERN 
A BICB IS DONE 



'A*' MASKS. BEFORE A REGISTER'S 
USING ITS RESPECTIVE ByTE KRQM 



THE TABLE BELOW (INSURING THAT "DON'T CARE" BITS ARE IGNORED) 



.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
. B i i t 
.BYTE 
.BYTE 
.BYTE 
.BYiC 
.Bi TE 
.BYTE 



000 

377 
000 
000 
377 
3/7 
OOC 
O.X) 
377 
377 
OOC 
000 
000 
377 
200 
377 



ORB 
ORA -■ 
DDRB 
DORA 
T1CL 
T1CH • 
TILL 
T1LH 
T2CL - 
T2CH • 
SR 
ACR 
PCR 
IFR 
IER -■ 
ORA — 



THIS REGISTER CAN'T BE TESTED!!! 



THIS IS A FREE RUNNING COUNTER 
THIS IS A FREE RUNNING COUNTER 



THIS IS A FREE RUNNING COUNTER 
THIS IS A FREE RUNNING COUNTER 



BIT / IS ALWAYS READ AS JERO 
THIS REGISTER -CAN'T --BE- TESTED!!! 
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***** DATA PATTERN D ***** 
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SEQ 0044 



2051 






2052 






2053 






2054 


002644 


000026 


2055 


002646 


200 


2056 


00264 7 


201 


2057 


002650 


202 


2058 


002651 


204 


2059 


002652 


210 


2060 


002653 


220 


2061 


002654 


240 


2062 


002655 


300 


2063 


002656 


200 


2064 


002657 


000 


2065 


C02660 


001 


2066 


002661 


002 


2067 


002662 


004 


2068 


002663 


010 


2069 


002664 


020 


2070 


002665 


040 


2071 


002666 


100 


2072 


002667 


000 


2073 


002670 


325 


2074 


002671 


125 


2075 


0026 72 


252 


2076 


002675 


052 


2077 






2078 






2079 






2080 






2081 






2082 


002674 


000C26 


2083 


002676 


200 


2084 


00267 7 


201 


2085 


002 700 


203 


2086 


002701 


207 


2087 


002702 


217 


2088 


002 703 


237 


2089 


002 704 


277 


2090 


002705 


377 


2091 


002706 


377 


2092 


002707 


377 


2093 


002710 


3 76 


2094 


002 711 


374 


2095 


002712 


370 


2096 


002713 


360 


2097 


002714 


340 


2098 


002715 


300 


2099 


002 716 


200 


2100 


002717 


200 


2101 


002 720 


325 


2102 


002721 


200 


21C3 


002 722 


252 


^104 


002 723 


200 



.SBTTL ***** DATA PATTERN ***** 



.EVEN 






PATD} 


,WOP0 


PATE-PATD-2 




.B^TE 


200 




.BYTE 


201 




.BYTE 


202 




.BYTr; 


204 




,BYTE 


210 




.BYTE 


220 




.BYTE 


240 




.BYTE 


300 




.BYTE 


200 




.BYTE 


000 




.BYTE 


001 




.BYT^ 


002 




.BYTE 


004 




.BYTE 


010 




.BYTE 


020 




.BYTE 


040 




.BYTE 


J 00 




.BYTE 


000 




.BYTE 


525 




.BYTE 


125 




.BYTE 


db?. 




.BYTE 


052 



.SBTTL ***** DATA PATTERN E ***** 



■PATE -2 



.EVEN 




PATE: .WORD 


PAH 


.BYTE 


200 


.BYTE 


201 


.BYTE 


203 


.BYTE 


20 7 


.BYTE 


CM 7 


.BYTE 


r.-./ 


.byte 


2 / / 


.BITE 


in 


.BYTE 


37/ 


.BYTE 


3.V 


.BtTE 


3 76 


.BYTE 


3/4 


.BtTE 


3 70 


.By It 


360 


.BYTE 


340 


.BYTE 


300 


.ByTF 


200 


.BYTE 


200 


.BYTE 


325 


.BYTE 


200 


.BrTE 


252 


.BYTE 


200 
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**** + DATA PATTERN F ***** 
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SEQ 0045 



2106 






2107 






2108 






2109 


002724 


000045 


2110 


002726 


125252 


2111 


002730 


052525 


2112 


002732 


000000 


2113 


002734 


177777 


2114 


002736 


000001 


2115 


002740 


000002 


2116 


002742 


000004 


2117 


002744 


000010 


2118 


002746 


000020 


2119 


002750 


000040 


2120 


002752 


000100 


2121 


002754 


000200 


2122 


002756 


000400 


2125 


002760 


001000 


2124 


002762 


002000 


2125 


002764 


004000 


2126 


002766 


010000 


2127 


002770 


020000 


2128 


002772 


040000 


2129 


002774 


100000 


2130 


002776 


177776 


2131 


003000 


177775 


2132 


003002 


177773 


2133 


003004 


177767 


2134 


003006 


177757 


2135 


003010 


177737 


2136 


003012 


177677 


2137 


003014 


177577 


2138 


003016 


177377 


2139 


003020 


176777 


2140 


003022 


175777 


2141 


003024 


1^3777 


2142 


003026 


167777 


2143 


003030 


157777 


2144 


003032 


137777 


2145 


003034 


077777 


2146 


003036 


000000 



.SBTTL ***** DAI A PATTERN F ***** 



.EVEN 






PATFs .WORD 


<PHTG-PATF 


-2>/2 


.WORD 


125252 




.WORD 


052525 




.WORD 


000000 




.WORD 


1777.7 




.WORD 


000001 




.WORD 


000002 




.WORD 


000004 




.WORD 


000010 




.WORD 


000020 




.WORD 


000040 




.WORD 


000100 




.WORD 


000200 




.WORD 


000400 




.WORD 


001.000 




.WORD 


002000 




.WORD 


004000 




.WORD 


010000 




.WORD 


020000 




.WORD 


040000 




.WORD 


100000 




.WORD 


177776 




.WORD 


177775 




.WORD 


177773 




, WORD 


177767 




.WORD 


177757 




.WORD 


177737 




.WORD 


17767/ 




.WORD 


177577 




.WORD 


177377 




.WORD 


1,677? 




.WORD 


175777 




.WORD 


173777 




.WORD 


167777 




.WORD 


15 7/7/ 




. WORD 


137777 




.WORD 


0/7777 




♦ WORD 


000000 





CNDMAAO OMV11 HCTRl. DIAG #1 
***** DATA PATTERN F ***** 
2146 003040 
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PATGt 



H4 

PAbfc 26 



SEQ 0046 



2149 






2150 






2151 






2152 






2153 


003040 


000020 


2154 


003042 


000 


2155 


00304 3 


200 


2156 


003044 


000 


2157 


003045 


000 


2158 


003046 


033 


2159 


00304 7 


000 


2160 


003050 


305 


2161 


003051 


000 


2162 


003052 


000 


2163 


003053 


000 


2164 


003054 


000 


2165 


003055 


000 


2166 


003056 


000 


2167 


003057 


000 


2168 


003060 


000 


2169 


003061 


000 


2170 






2171 






2172 






2173 


003062 




ai?4 







.SBTTL ***** DATA PATTERN RESULTS TABLE FOR MASTER CLEAR CRESFMC) ***** 



"RUN" BIT SET 



.EVEN 










RESFMC: 


.WORD 


RESFT3- 


•RESF.iC-2 


DSELRS: 


.BYTE 


000 




iBSELO 




.LUTE 


200 




jBSELl 




.BYTE 


000 




{BSEL2 




.BYTE 


000 




IBSEL3 




.BYTE 


033 




jBSEL4 




.BYTE 


000 




jBSEL5 




.BYTE 


305 




jBSEL6 




.BYTE 


000 




IBSEL7 




.BYTF 


COO 




iBSELlO 




.BYTE 


000 




jBSELll 




.BYTE 


000 




IBSEL12 




.BYTE 


000 




»BSEL13 




.BYTE 


000 




IBSEL14 




.BYTE 


OOr 




JBSEL15 




.B^E 


ouo 




;BSEL16 




.BYTF 


000 




3BSHL17 


.SBTTL 


***** 


DATA PATTERN 


RESULTS FOR 


RESFT3: 


iBLKU 


16. 






.EViiN 











CODE FOR THE DMV-11 

INDICATING VALID COMPLETION OF U-DIAU. 



CNOMAAO DMVll MCTRL D1AG #1 
DATA BUFFER AREAS 



MACRO M1200 22 -FEB -84 1S:<.2 



14 

PAGE. 2? 



21?6 




21 ;; 




2178 003122 




2179 




2180 




2181 




2182 




2185 




2184 


005322 


218S 


003324 


2186 


003326 


2187 


003330 


2188 


003532 


2189 


003334 


2190 


003336 


2191 


003340 


2192 


003342 


219? 


003344 


2194 


00354* 


2195 


003550 


2196 


003352 


2197 


00 5354 


2198 


003356 


2199 


003560 


2200 




2201 


005122 


2202 


003206 



SEQ 0047 



.SBTTL DATA BUFFER AREA 1 
BUT AREA: .BLKB 256. 



j THIS BUFFER HAS SOME ALTERNATE USES TOO. 
j FOR THOSE USAGES, 



THE FOLLOWING LABELS ARE PROVIDED 



WO ■ 


• BUF AREA* 128 


Wl « 


• W0»2 


W2 • 


Wl »2 


W3 ■ 


W2»P 


W4 > 


• W3*2 


W5 • 


■ W4>2 


W6 ■ 


' W^.2 


W7 


■ W6»2 


W8 


- W7*2 


W9 


' W8»^ 


WA 


• W9*2 


we 


♦ WA*2 


WC 


• wa«2 


WO 


• WC»2 


we 


• WU*2 


W* 


• WE. 2 


BT1 


- BK* ARE (\ 


UT2 


* BUFAREAf64 



jTr:lS WORD TABLE STARTS IN THE MIDDLE OF "BUFAREA" 
{AND IS UStD BY "ERR6" FOR PRINTING BYTES 



ifl'lh TABLE 1 
iUiTE TABLE * d 



J4 



CNDMAAO DMV11 MCTRl 01 AG #1 
GLOBAL TEXT SECTION 



2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 



2215 



003522 
003522 
003522 
003525 
003530 
003533 
003536 



2216 

2217 

2218 

2219 

2220 

2221 

2222 003542 
003542 
003542 
- PART 
003545 
003550 
003553 
003556 
003561 
003564 
003567 
003572 
003575 
003600 
003603 
003606 
003611 

222 5 
2224 



115 
065 
117 
115 
066 



IC DIAG 



000012 



104 
1 OF 2/ 
055 
040 
103 
124 
040 
107 
040 
101 
055 
101 
040 
117 
062 

Q00010 



070 
063 
122 
070 
064 



115 

061 
125 
117 
122 
114 
HI 
104 
107 
040 
122 
061 
106 
000 
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SEQ 0048 



.SBTTL GLOBAL • NT ACTION 

}* THE CL R:*'_ TEXT SECTION CONTAINS FORMAT STATEMENTS, 
t* MESSAGE^, AND ASCII INFORMATION THAT ARE USED IN 

i* MORE THAN ONE TEST. 

*+++* + + + + * + ***>>. '+ + * + + + + + *+***. + + +. + +*.*, + , ** + + * + + + + * + + *+,* + + + mm** + +*mm*m 

;+ NAMES OF DF.Vtf.l S SUPPORT t-"0 HY PROGRAM 

j -- + + + + + + + + + '' ++++^+** + +++h* fi************^************^^**************,** 4* *4 + + 

DEVTYP <MP053 OR M6064> 

LSDVTYP:: 
060 .ASCI/ KM80^3 OR M8064* 

040 
040 
060 
000 

.EVEN 

; + TITLE OF PROGRAM 

• - -****** ****4***>- ********** r^^tiaiiiUHUiii^iiii^nUiAAUftHi^U**^* 

.RADIX 10. 

OESCitlPT sDMV-U U-CQNTRL LOGIC DIAG - PART 1 OF ?.- 

UDESCn 



126 

061 
055 
116 
114 
117 
103 
111 
040 
120 
124 
040 
040 



•ASCIZ /DMV-11 U-CQNTRL LOG 



.RADIX fl» 



.EVEN 



CNDMAAO DMV11 MCTRL DXAG 01 

GLOBAL SUBROUTINES 

223,? 

2235 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

224 5 

2244 

2245 

2246 

224 7 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

22 /O 

2271 

22/2 

2273 

2274 

2275 

2275 

22 7 I 

2278 

22 79 

2280 

2281 

2282 

228 5 

2284 

2285 

2286 

225& 



l<4 
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SEQ 0049 



003614 
003616 



003624 
003630 
003632 
003634 
003636 
003636 
003644 



003646 
003654 

005656 



010146 
112777 



013701 
001402 
005301 
000775 

132777 
001410 



127737 

001004 

12 //3 7 
001420 



000300 176530 



002316 



000200 176510 



.SBTTL GLOBAL SUBROUTINES 

t /////////////////////'////////////////////////////////// ///////////////////// 

;/ THE GLOBAL SUBROUTINES ARE CALLED BY MORE THAN ONE TEST 

i ////////////////////////////////////////////////////////////////////// /////// 

.SBTTL MASCLR - MASTER CLEAR SUBROUTINE 

! FUNCTION: 

! TKIS SUBROUTINE FORCES THE 6502 MICROPROCESSOR TO EXECUTE A MINI 17 PART 
} DIAGNOSTIC OF THE MICRO-PROCESSOR INSTRUCTION SET, RAM DATA AND ADDRESSING 
VALIDITY, AND A ROM CRC TEST, THE CLEAR SUBROUTINE EXECUTES IN 
APPROXIMATELY 500 HUNDREDCS) MILLISECOND. THIS SUBROUTINE UILL SEND THE 
MASTER CLEAR COMMAND AND DELAY FOR APPROX . 500 MSEC. AT WHICH POINT IN 
TIME. THE STATE OF THE CSR REGISTERS IS TESTED. IF ANY ONE Of THE 
REGISTERS CONTAINS ANYTHING THAT 13 NOT EXPECTED, AN ERROR IS QUEUE UP AND 
THE CARRY BIT IS SET, ELSE, THE CARRY BIT IS CLEARED. 

CALLING SEQUENCE: 



PC, MASCLR 

M 



BCC M {IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

ERROR jAN ERROR MESSAGE HAS BEEN STACKED: PRINT If 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 



N$: RESUMPTION OF NORMAL PROCESSING> 



MASCLR: MOV 
MOVB 



Rl.-(SP) 



SAVE REGISTER ONE 



-»RUN!MCLR,aBSELl {SET BOTH THF- RUN AND MASTER CLEAR BITS 

j TO INITIATE THE MICRODIAGNOSTIC 



jNOU DELAY LONG ENOUGH FOR THE MICRODIAGNOSTIC TO COMPLETE 



2* 

1$ 



MOV DEIAY1.R1 

BEQ 1* 

DEC Rl 

BR 2* 

BITB GRUN.SBSELl 

BEQ M 



j INITIALIZE THE LOOP COUNTER FOR DELAY LOOP 

i EXIT DELAY LOOP IF THE TIME HAS EXPIRED 

! ELSE. DECREMENT THE LOOP COUNTER AND 

i CONTINUE TO LOOP. 

j TIME -UP! 

i CHECK THE RUN BIT 

tIF N01 SET, GO REPORT THE ERROR 



176514 003050 4$: 



1 ZC&QU 00-3046 



jIF THE RUN BIT IS SET, MICRO;) I AGNUS T ICS ARE COMPLETE, 
j CHECK IK All MICRODTAGNOSTICS PASSED. 

CMPB oX)SEL6,BSELRS*6 i THIS CHECKS THE BYTE IN B SELECT 6 FOR THE 

j VALID MICRODIAGNOSTIC COMPLETION CODE. 
BNE 3$ < IF BAD, GO REPORT ERROR 

CMPB. 363EL4 t BSELRS*>4 » El fit, CHECK FOR THE VALID CODF FOR A DMv li 
BEQ bl j IF THIS TOQ IS CORRECT THEN NO tRROR EXISTS 

lELSE, FALL INTO THE ERROR REPORTING CODE 



L4 



CNDMAAO DMV11 MCTRL DIAG *1 MACRO M1200 22-FEB-84 15:22 PAGE 29-1 
MASCIR - MASTER CLEAR SUBROUTINE 



2269 003666 004757 004434 
2290 00367? 



3$ i 



JSR 
GTDF 



PC.GETBSR 
20S.ERR3 





003672 


012737 


000001 


002236 










003700 


012737 


000001 


002240 










003706 


012737 


003734 


002242 










003714 


012737 


005414 


002244 








2291 


003722 


000261 








SEC 




2292 


003724 


000401 








BR 


7* 


2293 
















2294 


003726 


000241 






6$; 


cue 




2295 


003730 


012601 






7$; 


MOV 


(SP)t.Rl 


2296 


003732 


000207 








RTS 


PC 


2297 










.NLIST 


BEX 




2298 


003734 


115 


: 'i 


123 


20$; 


.ASCIZ 


/MASTER 


2299 










.LIST 


BEX 




2300 










% EVEN 







SEQ 0050 



jGET THE BSEL REGISTERS FOR DUMPING 

i MASTER CLEAR ERROR 

j QUEUE "DEVICE FATAL" ERROR 4 : 

MOV 
MOV 
MOV 
MOV 

j INDICATE TO THE CALLING ROUTINE THAT 

; AN ERROR WAS DETECTED 



0T.EDF .ERRTYP 
tfl.ERRNBR 
020*,FRRMSr, 
0ERR3.ERRBLK 



{CLEAR THE CARRY BIT TO INDICATE NO ERROR 
{RESTORE REGISTER ONE 
j RETURN TO THE CALLER 

FAILURE/ 



CNDMAAO 

M-LOOP 

2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 



DMV11 MCTRL OIAG 01 MACRO M1200 22-FEB-G4 15s22 
- MSTCLR -- MASTER CLEAR 6 ENTER M-LOOP 
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SEQ 0051 



003762 012777 



2329 
2330 
2331 
2332 



003 7 70 
003772 
003776 
004000 

004002 
004010 
004012 
004016 
004024 

004024 
004032 
004040 
004046 
004054 
004056 
004060 
004062 



010346 
012703 
077301 
012603 

132777 
001023 
004737 
012737 



012737 
012737 
012737 
012737 
000261 
000401 
000241 
000207 



140400 
000014 

000200 

004576 
000301 



000001 
000002 
014454 
005426 



176346 
002310 



002236 
002240 
002242 
002244 



.SBTTL M-LOOP -- MSTCLR -- MASTER CLEAR 6 ENTER M-LOOP 

; * ***********************+******£+******++**+++++++* *+*+****>+*++++ *+* + * ++ * +++ 

? MSTCLR -- MASTER CLEAR £ ENTER M-LOOP 

CALLING SEQUENCE; 

JSR PC, MSTCLR 

BCC N$ {IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

ERROR j AN ERROR MESSAGE HAS BEEN STACKED: PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 

N$; RESUMPTION OF NORMAL PROCESSING* 

~-*********4.**************************************** + *************** + ******** 



176362 MSTCLR; MOV 



1$ 



MOV 
MOV 
SOB 
MOV 

BITB 

BNE 

JSR 

MOV 

GTDF 



5$ 
9$ 



SEC 

BR 

CLC 

RTS 



*<RUN!MCLR!MREQ>*256.,aSEL0 {INITIATE M-LOOP 

{WAIT FOR THE M-LOOP TO FINISH THE OPERATION 



R3.-CSP) 
012., R3 
R3.1* 
(SP)» # R3 



*MRDY,6fcSEL2 

5$ 

PC.GETWSR 



{DID THE M-LOOP FINISH 
;YES, GOOD. RETURN 
;GET BYTE SELECT REGISTERS 
ORUN!MCLR!MREQ,GDATA {IDENTIFY REQUESTED FUNCTION 
EM3.ERR4 ;"MRDY" TIMEOUT 

S QUEUE "DEVICE FATAL" ERROR * 2 

MOV 
MOV 
MOV 
MOV 
;SET CARRY TO INDICATE ERROR 
9$ {EXIT WITH THE "ERROR" FLAG (CARRY BIT) SET 

{CLEAR C BIT FOR NO ERRORS 
PC {RETURN 



OT.EDF.ERRTYP 
$2,ERKNBR 
0EM3.ERRMSG 
0ERR4.ERRBLK 



CNDMAAO DMV11 MCTRL DIAG 41 
M-LOOP -- READ 



2334 
2335 
2336 
2337 
2338 
2339 
2340 
234. 
23/2 
2543 
2"i44 
r"345 
2346 
234/ 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 



N4 
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SEQ 0052 



2357 

2358 
2359 
2360 
2361 
2362 
2363 
2364 



2365 

2366 
2367 
2368 
2369 
2370 



004064 
004070 

004076 

004100 
004104 
004106 

004110 
004116 

004120 
004124 
004132 

004132 
004140 
004146 
004154 
004162 
004164 

004166 
004170 
004174 



132777 
001023 

004737 
012737 



012737 
012737 
012737 
012737 
000261 
000401 

000241 
117735 
000205 



.SBTTL M-LOOP — READ 

READ - READ THE SPECIFIED ADDRESS WITHIN THE DMV-11 

CALLING SEQUENCE: 

JSR R5 READ 

,U0RD <ADDRESS OF REGISTER WITHIN DMV-U> 

.WORD ^DESTINATION ADDRESS WITHIN LSI-11> 

n CC M ;IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

ERROR j AN ERROR MESSAGE HAS BEEN STACKED: PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 

N$: RESUMPTION OF NORMAL PROCESSING> 



176272 
00000.1 



012577 
112777 

010346 

012703 000032 

077301 

012603 



176260 



READ: 



IS 



000200 176240 



004576 
000001 



000001 
000003 
014500 
005426 



176172 



002310 



002236 
002240 
002242 
002.244 



MOV 
MOVB 

MOV 
MOV 
SOB 
MOV 

BITB 
BNE 

JSR 
MOV 
GTDF 



65 



SEC 
BR 

CLC 

MOVB 

RTS 



(R5)f .SSEL4 
OflEDL0C,OBSEL2 

R3.-CSP) 

026. ,R3 

R3,l* 

CSP)».R3 

0MRDY,aeSEL2 
5$ 

PC.GETWSR 
4RFDL0C.GDATA 
EM4 , ERR4 



6$ 



aestL6,Q(R5)* 

R5 



j SETUP SOURCE POINTER 

}TELL M-LOOP TO GIVE US THE REQUESTED DATA 



;WAIT FOR THE M-LOOP TO FINISH THE OPERATION 



{DID THE M-LOOP FINISH 
5 YES, GOOD. RETURN 

{GET BYTE SELECT REGISTERS 

jIDENTIF\ REQUESTED FUNCTION 

{ "MRDY" TIMEOUT 

; QUEUE "DEVICE FATAL" ERROR 3 

MOV 
MOV 
MOV 
MOV 

5 INDICATE AN ERROR HAS BEEN STACKED 

{RETURN WITH THAT INDICATION 

{INDICATE "NO ERROR" 

{PUT DATA WHERL CALLER WANTS IT 

I RETURN 



*T .EDF.ERRnP 
43.ERRNBR 
0EM4.ERRMSG 
*ERR4,FRRBLK 



B5 



CNOMAAO DMV11 MCTRL OIAG 01 
M-LOOP - • READ IMMEDIATE 
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SEQ 0053 



2372 
2373 
2374 

2375 
2376 










.SBTTL 


M-LOOP 


-- READ IMMEDIATE 










j READI 


- READ 


IMMEDIATE THE SPECIFIED ADDRESS WITHIN THE DMV-ll 










» CALLING SEQUENCE: 




2377 


















2378 












JSR 


R5, READI 




2379 












.WORD 


<ADDRESS OT REGISTER WITHIN DMV-ll> 


2380 












.WORD 


'DESTINATION ■- 


CONTENTS Of REG. IS PUT HERE> 


2381 












BCC 


Nt 


|U NO ERROR OCCURED, PROCEED WITH ROUTINE 


2382 












ERROR 




jAN EfcROR MESSAGE HAS BEEN STACKED: PRINT IT 


2383 












<ANY OTHER SPECIAL. ERROR PROCESSING MAY BE DONE HERE (I.E. CKL00P)> 


2384 


















2385 










l N'v 


« RE SUMPTION CF NORMAL PROCESSING) 


2386 
2387 
2388 


































2389 


004176 








READI ! 








2390 


004176 


012577 


176160 






MOV 


(R51»*fiSEL4 


1 SETUP SOURCE POINTER 


2391 


004202 


112777 


000001 


176146 




MOVB 


♦REDL0CSBSEL2 


I TELL M-LOOP TO GIVE US THE REQUESTED DATA 


2392 


















2393 


004210 


010346 








MOV 


R3 # -(SP) 




2394 


004212 


012703 


000015 






MOV 


«13.,R3 


iWAIT FOR THE M-LOOP TO FINISH THE OPERATION 


2395 


004216 


077301 






1*: 


soe 


R5,l» 




2396 
2397 
2398 


004220 


012603 








MOV 


(SP)»,R3 




004222 


132777 


000200 


176126 




BITB 


*HRDY,S6SEL2 


»DID THE M-LOOP FINISH 


2399 


004230 


001023 








BNE 


5$ 


tYES, GOOD. RETURN 


2400 


















2401 


004232 


004737 


0O4576 






JSR 


PC.GETWSR 


iGET BYTE SELECT REGISTERS 


24C2 


004236 


012737 


000001 


002310 




MOV 


OREDLOC.GDATA 


jIOENTIFl REQUESTED FUNCTION 


2403 


004244 










GTDE 


EM4|F.RR4 


l"MROY" TIMEOUT 

1 QUEUE "DEVICE FATAL" ERROR d 4 




004244 


012737 


000001 


002236 








MOV ♦T.EDF.ERRTfP 




004252 


012737 


000004 


002240 








MOV 04.ERRNBR 




004260 


012737 


014500 


002242 








MOV &EM4.ERRMSG 




004266 


012737 


005426 


002344 








MOV <?ERR4»ERRBLK 


2404 


004274 


000261 








SEC 




lINOICATE AN ERROR HAS BEEN STACKED 


2405 
2406 
2407 


004276 


000401 








BR 


6$ 


1 RE TURN WITH THAT INDICATION 


004 300 


00024 1 






51: 


etc 




lINOICATE "NO ERROR" 


2408 


004 302 


017725 


176Q6Q 




6$; 


MOV 


WStL6,(R^)* 


|PUT DATA WHERE CALLER WANTS IT 


2409 


QQ43Q& 


0Q02Q5 








RIS 


R5 


j RETURN 



C!) 



CNDMAAO DMVU MCTRL OXAG 0\ 
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M-LOOP 

24 U 
2412 
2413 

2414 
2415 
2416 
241? 
2418 
2419 
2420 
2*21 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 



WRITE 



SEQ 0054 



.SBTTL M-LOOP 



WRITE 



WRITE - WRITE THE SPECIFIED DATA INTO THE SPECIFIED DMV-11 ADDRESS 
CALLING SEQUENCE: 

JSR R5, WRITE 

.WORD <AODRESS OF REGISTER WITHIN DMV-11> 

.WORD < ADDRESS OF DATA BYTE> 

BCC Nl j IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

ERROR i AN ERROR MESSAGE HAS BEEN STACKED: PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 

Nl: <RESUMPTICN OF NORMAL PROCESSING> 

■ -A*********************************.***************************************** 



004310 
004314 
004320 



012577 
113577 
0004C4 



176046 
176046 



WRITE: MOV 
MOVB 
BR 



(R5)»,aSEL4 
S(R5)*,8SEL6 

MLWRI 



I SETUP SOURCE POINTER 

iMAKE DATA AVAILABLE TO M-LOOP 

j THE REST OF THIS ROUTINE IS THE SAME AS "WRITEI 



CNDNAAO DNV11 MCTRL DIAG 01 
M-LOOP • • WRITE IMMEDIATE 



2452 
24 33 
24 34 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
244 3 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2456 
2459 
2460 
2461 
2462 
2463 



MACRO M1200 



D5 
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SEQ 0055 



004322 
004322 
004326 
004332 

004340 
004342 
004346 
004350 

004352 
004360 
004 362 
004366 

004374 



012577 
012577 
112777 

010346 
012703 
077301 
012603 

132777 
001023 
004737 
012737 



004374 
004402 
004410 
004416 

2464 0O4424 

2465 004426 
2466 

2467 004430 

2468 004432 



SBTTL M-LOOP 



WRITE IMMEDIATE 



176034 
176034 
000002 



000050 



000200 

004576 

000002 



WRITEI - WRITE IMMEDIATE THE SPECIFIED DATA INTO THE SPECIFIED DMV-11 ADDRESS 
CALLING SEQUENCE: 

JSR R5 MRITEI 

.WORD <AuuRESS OF REGISTER WITHIN DMV-11> 

.WORD <DATA FIELD -- DATA TO BE WRITTEN IN DMV-11> 

BCC Nt | IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

ERROR i AN ERROR MESSAGE HAS BEEN STACKED: PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY 3E DONE HERE (I.E. CKLOOP)> 

N*: ^RESUMPTION OF NORMAL PROCESSING* 
WRITEI: 



176016 MLWRI: 



11 



012737 000001 

012737 000005 

01273? 014500 

012737 005426 
000261 
000401 

000241 
000205 



175776 
002310 



002236 
002240 
002242 
002244 



MOV 
MOV 
MOVB 

MOV 
MOV 
SOB 
MOV 

BITB 

BNE 

JSR 

MOV 

GTDF 



5$: 
6*1 



SEC 
BR 

CLC 
RTS 



(R5)*,8SEL4 
(R5)*,SSE16 

*WRIL0C»aeSEL2 

R3.-CSP) 
*40. ,R3 
R3.1* 
(SP)*,R3 

*MRDY,Q8SEL2 
5$ 

PC.GETWSR 

frWRILOC.GDATA 

EM4.ERR4 



6$ 



R5 



I SETUP SOURCE POINTER 

iMAKE DATA AVAILABLE TO M-LOOP 

I TELL M-LOOP TO WRITE THE DATA 



IWAIT FOR THE M-LOC* TO FINISH THE OPERATION 



iDID THE M-LOOP FINISH 

lYES, GOOD. RETURN 

iGET BYTE SELECT REGISTERS 

j IDENTIFY REQUESTED FUNCTION 

i"MRDY" TIMEOUT 

l QUEUE "DEVICE FATAL" ERROR 5 

MOV 
MOV 
MOV 
MO^' 

i INDICATE AN ERROR HAS BEEN STACKED 

iRETURN WITH THAT INDICATION 



$T.EDF,ERRTYP 
05.ERRNBR 
0EM4.ERRMSG 
$ERR4 f ERRBLK 



i INDICATE "NO ERROR 1 ' 
j RETURN 



E r 5 
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GETBSR - GET BYTS SELECT REGISTERS 



SEQ 0056 



24 70 
2471 
24 72 
2473 
24 74 
24 75 
24 76 
24 77 
24 78 
24 79 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 



004434 
004442 
004450 
0O4456 
004464 
0044 72 
004500 
004506 
004514 
004522 
004530 
004536 
004544 
004552 
004560 
004566 
004574 



004576 
004604 
004612 
004620 
004626 
004634 
004642 
004650 
0Q4656 



117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
000207 



017737 
017737 
017737 
017737 
017737 
017737 
017737 
017737 
0002Q7 



175712 
175706 
175702 
175676 
175672 
175666 
175662 
175656 
175652 
175646 
175642 
175636 
175632 
175626 
175622 
175616 



175550 
175546 
175544 
175542 
175540 
175536 
175534 
17553a 



.SBTTL GETBSR -- GET BYTE SELECT REGISTERS 

>>+ + + * + + + + + + + + + + *:*.+. + + *.+ * + * + + + + + + * + + * + + + + + ++*+. + + ±+* + t + + ** L * + + t* + + + 4,+4 l . + + 4,t t m± + 

GET THE CONTENTS OF ALL CONTROL AND STATUS REGISTERS 

FUNCTION - THIS SUBROUTINE COLLECTS THE CONTENTS OF THE 

BYTE SELECT REGISTERS FOR THE PURPOSE OF DISPLAY, 

ENTRY CONDITIONS - NOK 

E^IT CONDITIONS ,>*ONE 

REGISTERS DESTROYED - NONE 



ftft 


ft 


ftftftft 


ft 


ftft ft 


ft ft 


ft 


ft 


ft ft 


ft ft ft 


ft 


ft 


ftft 


ft ft 


ft ftft 


ft ft 


ft 


ft 


ft^ftftft 


ft ft 


ftft 


ftftftft 


ftftftft 


ft ft 


ft ft 



002246 
002250 
002252 
002254 
002256 
002260 
002262 
002264 
002266 
002270 
002272 
002274 
002276 
002300 
002302 
002304 



GETBSR s MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
RTS 



BBSELO.BSRO 

S6SEL1.BSR1 

aeSEL2,BSR2 

SBSEL3.BSR3 

86SEL4.BSR4 

aBSEL5,BSR5 

Q8SEL6.BSR6 

QBSEL7 f BSR7 

aeSELlO.BSRIO 

S6SEL11.BSR11 

SBSEL12,BSR12 

SBSEL13.BSR13 

Q8SEL14 # BSR14 

SBSEL15.BSR15 

S6SEL16.BSR16 

8BSEL17.BSR17 

PC 



j PUT THE CURRENT CSR VALUES INTO THE PRINT -OUT 
{TABLE 



I RETURN TO CALLER 



.SBTTL GETWSR -- GET WORD SELECT REGISTERS 
j "WORD" VERSION OF ABOVE SUBROUTINE 



002246 
002250 
002252 
002254 
002256 
002260 
002262 
003364 



GETWSR; MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



BSELO.WSRO 

aSEL2,WSR2 

QSEL4.WSR4 

8SEL6.WSR6 

SSEL10,WSR10 

3SEL12.WSR12 

aSEL14,USR14 

US£L16,W5R16 

PC 



jMOVE THE 8 WORD REGISTERS TO THE OTHERWISE 
jBYTE TABLE 



1 RE TURN TO CALLER 



f-5 
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,INITT1 -- INITIALIZE TIMER tf 1 



SEQ 0057 



2518 

2519 

2520 

2521 

2522 

2525 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2343 

2544 

2545 

2546 

254 7 

2548 

2549 

2550 

2551 

2552 

;2553 

2554 

2555 

2556 

255? 

2558 

2559 

2 560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

25 71 

2572 

257 5 

2V/4 



OO4660 
004662 
004666 
004672 
004676 
004704 



004 706 
004710 
004 714 
004720 
00^722 
004 726 

004 7 32 
004 736 
004 740 
004742 

004 744 

004 750 
004/52 
004 754 



010146 
112537 
112537 
111537 
142737 
012501 



1063C! 
042701 
140177 
106301 
052701 
110137 

004537 
120016 
002475 
103431 

004537 
12^013 
0C2466 
1 £424 



002455 
002457 

002467 
177477 



002467 



177677 
175440 

000100 
0024 75 

004310 



004064 



.SBTTL .INITT1 -- INITIALIZE TIMER 1 

;♦ INITT1 - INITIALIZE TIMER 1 

i* 

»♦ CALLING SEQUENCE: 

j* 

{♦ JSR R5.INI7T1 

{* .WORD <VALUE LOADED INTO THE Tl LATCH S TILL £ T1LH"» 

}♦ .WORD <BITS 6 & 7 WILL BE LOADED INTO "ACR", BIT 5 WILL BE 

j* USED TO SET OR CLEAR BIT 6 ("Tl'O OF THE INTERRUPT 

1+ ENABLE REGISTER C'*IER")> 

i* 

;* 

}♦ SEQUENCE OF EVENTS HEREIN: 

i* 

l* SET THE VIA'S INTERRUPT ENABLE REGISTER ("IER") 



{♦ 
J* 

5* 
J* 

I* 
i* 

J* 

t* 



SET THE VIA'S "ACR" 
SET T1L-L (ADDR 06) 
SET T1L-H (ADDR 07) 
RETURN WITHOUT ANY ERROR CHECKING 



INITT1: MOV 
MOVB 
MOVB 
MOVB 
BICB 
MOV 



j SAVE THE REGISTER WE WILL BE USING 

I SETUP VALUES TO BE LOADED INTO THE LATCHES 



Rl.(SP) 
(R5)» t TMP6»l 

(R5)* t TMP7*l 

(R5),TMPB*1 jGET 6 PROCESS PITS FOR ACR 6 L 7 
0tC<BIT6*BIT7>, TMPB^l jEXTRACT BITS 6 L 7 C SAVE THEM FOR LATER 
(R5)*.R1 jNOW, GET THE BIT TO BE USED IN SETTING OR 

(CLEARING BIT 6 OF "IER" 



j THE PASSED BIT IS IN THE WRONG POSITION BUT, IT SHOULD CONTROL THE OPERATION. 

i WE KNOW WE ARE SETTING OR CLEARING BIT 6 -- THUS, THE PASSED BIT WILL BECOME 

j THE CONTROLLING BIT 7 AND WE WILL "OR" IN THE BIT WE WISH TO BE CONTROLLED 

; (BIT 6). 

j THIS PUTS THE PASSED BIT INTO BIT 6. 

j WHILE HERE. CLEAR ALL OTHER BITS ANO 

jCLEAR THE INTERRUPT FLAG IN THE SELECT REG. 

jNOW THE BIT IS IN THE CONTROLLING POSITION 

iSET BIT 6 

j THE CALL WILL NOW WRITE THE APPROPRIATE VALUE 

iWRITE TO 

l THE VIA'S IER 

j INTERRUPT ENABLE /DISABLE INFORMATION 

jEXXT ON ERROR 

j READ THE CURRENT StTTXNG OK 
}THb VTA' S ACR 

I EX IT UN tRRUK 



ASLB 


Rl 


BIC 


0tC<BIT6>,Rl 


BICB 


R1.SBSEL3 


ASLB 


Rl 


BIS 


0BIT6.R1 


MOVB 


R1,TMPE*1 


JSR 


R5, WRITE 


IENR 




TMPC ■♦! 




BCS 


63$ 


JSR 


R5.REA0 


ACR 




TMPB 




BCS 


63* 



Gb 
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.INITT1 -- INITIALIZE TIMER O 1 



SEQ 0058 



2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 



004 756 
004 762 
004766 

004772 
004 7 76 
005000 
005002 

005004 
005010 
00501? 
005014 

C05016 
005022 
005024 



005026 
005030 



013701 
042701 
150137 

00453^ 
120013 
002467 
103411 

00453/ 
120006 
002455 
103404 

004537 
120007 
002457 



012601 
000205 



002466 

177477 
002467 

004310 



004310 



004310 



63$ 



MOV 
BIC 
BISB 

JSR 
ACR 
TMPB ♦ 1 
BCS 

JSR 
TILL 
TMP6*1 
BCS 

JSR 

T1LH 

TMP7fl 



MOV 
RTS 



TMPB.R1 jGET THAT VALUE 

4tC<BIT6*BIT7>,Rl jCLEAR BITS 6 £ 7 

I ADD CURRENT BITS --> 



Rl.TMPBtl 
R5. WRITE 

63$ 

R5. WRITE 

63$ 

R5, WRITE 



(SP)^Rl 
R5 



5 TO NEW BITS 6 6 7 
jWRITE THE NEW REGISTER SETTING TO VIA' 3 ACR 

(EXIT ON ERROR 

jWRITE TO 

jLOW ORDER LATCH REGISTER (T1L-L) 

l THE VALUE PASSED 

jEXIT ON ERROR 

t WRITE TO 

jHIGH ORDER LATCH REGESTER (T1L-H) 

I THE VALUE PASSED 



jRESTORE Rl 
{RETURN 



.SBTTL. STALL -- DELAY FOR 10.5 MICRO - SEC 'S (ON LSI-11) 

;»*4***44 4 4*44*444*444444444*44444*444*444444444**444**44*«4444*44444444*44444 

j STALL -- THIS SUBROUTINE STPl.LS FOR ABOUT 10. 5 MICRO -SECONDS 

•---444444*4******44*4444**44*4*4***444*44*4*44444444444444444444*444*444***444 



005032 000207 



STALL: RTS 



PC 



H5 
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STREG • STATIC TEST OF SPECIFIED DMV-11 LOCATION 



SEQ 0059 



2607 










2600 










2609 










2610 










2611 










2612 










261? 










2614 










2615 










2616 










2617 










2618 










2619 










2620 










2621 










2622 










2623 










2624 










2625 










2626 










2627 


0050S4 


010037 


005050 




2628 


005040 


010037 


005062 




2629 










2630 


005044 


004537 


004310 




2631 


005050 


000000 






2632 


005052 


002306 






2633 


005054 


103435 






2634 










2635 


005056 


004537 


004064 




2636 


005062 


000000 






2637 


005064 


002312 






2638 


005066 


103430 






2639 










2640 


005070 


123737 


002310 


002312 


2641 


005076 


000241 






26*42 










264 3 


005100 


001423 






2644 


005102 


013737 


005050 


002334 


2645 


005110 


042737 


177760 


002334 


2645 


005116 










005116 


012737 


000001 


002236 




005124 


012737 


000006 


002240 




005132 


012737 


015565 


0C2242 




005140 


012737 


006612 


002244 


264? 


005146 


000261 






2648 


005150 


000207 







.SRTTL STREG 



STATIC TEST OF SPECIFIED DMV-11 LOCATION 



[ * ******************** *********************** A****** ****** ******************** 

j STREG -- PERFORM A STATIC TEST OF THE SPECIFIED REGISTER 
CALLING SEQUENCE: 



N$ 



<R0 CONTAINS THE ADDRESS OF THE REGISTER TO BE TESTED* 
<"TDATA" CONTAINS THE TEST BYTE* 
<"GDATA" CONTAINS THE EXPECTED DATA> 

JSR PC, STREG 

BCC N$ iIF NO ERROR OCCURED. PROCEED WITH ROUTINE 

ERROR } AN ERROR MESSAGE HAS BEEN STACKED: PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 

RESUMPTION OF NORMAL PROCESSINO 



.-- *************************************************************************** 
STREG: 



2$ 



45 



10$ 



MOV 


R0,2$ 


jPUT SPECIFIED REGISTER'S ADDRESS IN I/O CALLS 


MOV 


R0,4$ 






JSR 


R5, WRITE 


j WRITE IT 









!*♦♦ MODIFIED FROM ABOVE ♦♦♦ 




TDATA 




i*** MODIFIED FROM ABOVE *** 




BCS 


10$ 


{ON ERROR, EXIT 




JSR 


R5.READ 


jREAD IT BACK AGAIN 









!♦♦* MODIFIED FROM ABOVE *♦♦ 




BDATA 








BCS 


10$ 


jON ERROR, EXIT 




CMPB 


GDATA.BDATA 


jDID WE READ WHAT WE WROTE? 




CLC 




I CTHIS ISN'T NEEDED FOR THE 


ERROR TEbT BUT 






l MUST BE CLEARED ON EXIT IF 


NO ERROR OCCURED) 


BEC 


10$ 


t rES. EXIT FROM SUBTEST 




MOV 


2$,REGNUM 


iBUILD REGISTER $ 




F>IC 


#1 7 7 760 .REGNUM 






GTDF 


EM25.ERR7 


{REPORT READ/WRITE ERROR 








5 QUEUE "DEVICE FATAL" 


ERROR 4 6 

MOV OT.EDF.ERRT^P 
MOV 06.ERRNBR 

MOV #EM25,ERHMSG 
MOV OERR7.ERR3LK 


SEC 




} INDICATE THAT AN ERROR WAS ( 


DETECTED 



RTS 



PC 
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SEQ 0060 



2650 








2651 








2652 








2653 








2654 








2655 








2656 








265 7 








2658 








2659 








2660 


005152 
005152 






2661 


005152 


010046 




2662 


005154 


105737 


002330 


2663 


005160 


001007 




2664 


005162 


004737 


004434 


2665 


005166 








005166 


104455 






005170 


000007 






005172 


015613 






005174 


005414 




2666 


005176 


000407 




2667 








2660 


005200 


105237 


002326 


2669 


005204 


005737 


005222 


2670 


005210 


001402 




2671 


005212 


004777 


000004 


2672 


005216 


012600 




2673 


005220 
005220 








005220 


000002 




2674 








2675 


005222 


000000 





.SBTTL INTERRUPT HANDLER -- MPIHAN 

j ♦ ******************** ********************************************************* 
j MPIHAN -- COUNT INTERRUPTS -- USUALLY INTERRUPT "A" 

! THIS ROUTINE WILL INCREMENT THE LOW BYTE OF "INTFLG" EACH TIME IT IS 
; ENTERED. IF "IHILNK" IS NON-ZERO, VECTOR TO THE ADDRESS THEREIN USING 
; A "JSR PC" 

; - -******************************* ********************************************* 



5$ 



10$ 



BGNSRV MPIHAN 



MOV 


RO, -(SP) 


TSTB 


INTWCK 


BNE 


5$ 


JSR 


PCGETBSR 


GEDF 


EM34.ERR3 



BR 



10$ 



INCB 


INTFLG 


TST 


IHILNK 


BEQ 


10$ 


JSR 


PC.SIHILNK 


MOV 


(SP)*.RO 


ENDSRV 





IHILNK j .WORD 



MPIHAN: : 

{SAVE RO 

{HAVE WE BEEN TOLD TO WATCH FOR TYPE "A" INT'S? 

{YES, DO NORMAL. INTERRUPT PROCESSING 

{NO, DUMP REGISTERS AND 

j REPORT "UNEXPECTED INTERRUPT" 

; "DEVICE FATAL" ERROR 4 7 

TRAP C$ERDF 
. WORD 7 
.WORD EM 54 
.WORD ERR3 

}G0 TO EXIT 

j INCREMENT LOW BYTE OF INTERRUPT COUNTER 
{ARE WE EXPECTED TO EXECUTE ANOTHER ROUTINE? 
j NO, GET OUT 

lYES, GO TO IT -- I HOPE IT'S VALID! 
(RESTORE RO 

{RETURN TO INTERRUPTED PROCESS 

L 10002 j 

RTI 

IPQINTER TO AUXILIARY INT. HANDLING ROUTINE 



CNDMAAO DMV11 MCTRL DIAG 0\ 
INTERRUPT HANDLER -- MPOHAN 
2677 



MACRO M1200 22-FEB-84 15;22 



J5 

PAGE 39 



2678 








2679 








2680 








2681 








2682 








2683 








2684 








2685 








2686 








2687 


005224 
005224 






2688 


005224 


010046 




2689 


005226 


105737 


002331 


2690 


005232 


001007 




2691 


005234 


004737 


004434 


2692 


005240 








005240 


104455 






005242 


000010 






005244 


015644 






005246 


005414 




2693 


005250 


000407 




2694 








2695 


005252 


105237 


002327 


2696 


005256 


005737 


005274 


2697 


005262 


001402 




2698 


005264 


00^777 


000004 


2699 


005270 


012600 




2700 


005272 
0052 72 








005272 


000002 




2701 








2702 


005274 


000000 





SEQ 0061 



.SBTTL INTERRUPT HANDLER - - MPOHAN 

j *»***♦*♦*********♦+♦* ***************#+*********************** + + *** + *******+** + 
; MPOHAN -- SIMPLY COUNT INTERRUPTS -- USUALLY INTERRUPT "B" 

; THIS ROUTINE WILL INCREMENT THE HIGH BYTE OF "INTFLG" EACH TIME IT IS 
i ENTERED. IF "IHOLNK" IS NON-ZERO, VECTOR TO THE ADDRESS THEREIN USING 
; A "JSR PC" 

. . -***+******** + *******++* + + + + + ** + + **++ + + * + + * + +++ + + + + * + + + + + * + + + + + + + *** + + + + + +* + '*« 



BGNSRV MPOHAN 



MOV 


RO.-CSP) 


TSTB 


INTWCH*1 


BNE 


5$ 


JSR 


PC.GETBSR 


GEDF 


EM34B.ERR3 



BR 



5$ 



10$ 



10$ 



INCB 


INTFLG*1 


TST 


IHOLNK 


BEQ 


10$ 


JSR 


PC.QIHOLNK 


MOV 


(SP)*,RO 


ENDSRV 





IHOLNK: .WORD 



MPOHAN: : 

, SAVE RO 

'{HAVE WE BEEN TOLD TO WATCH FOR TYPE "B" INT'S? 

{YES, DO NORMAL INTERRUPT PROCESSING 

{NO, DUMP REGISTERS AND 

j REPORT "UNEXPECTED INTERRUPT" 

; "DEVICE FATAL" ERROR 8 

TRAP C$ERDF 

.WORD 8 
.WORD EM34B 
.WORD ERR3 

{GO TO EXIT 

{INCREMENT HIGH BYTE OF INTERRUPT COLNTER 
{ARE WE EXPECTED TO EXECUTE ANOTHER ROUTINE? 
{NO, GET OUT 

lYES, GO TO IT -- I HOPE IT'S VALID! 
{RESTORE RO 

{RETURN TO INTERRUPTED PROCESS 

L10003* 

RTI 

iPOINTKH TO AUXILIARY INT. HANDLING ROUTINE 



\<5 
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GLOBAL ERROR REPORT REPORT SECTION 



5EQ 0062 



2 704 
2705 
2/06 
2707 
2708 
2 709 
2710 
2711 
2712 
2713 
2714 

2/15 
2716 



2/ltt 
2/19 
2720 

2721 



2722 
2725 



2 724 
2/23 
2 726 



2727 

2 729 
2750 

<>/3l 

?n? 

2733 



005276 
0052 76 
0052.'6 
005302 
005302 
005302 



005504 
005504 
005304 
005304 
005510 
005514 
005520 
005524 
005526 
005550 
005554 
005340 
005540 
005342 
005346 
005350 
005354 
005356 
005362 
005566 
005372 
005574 
005576 
005402 
005406 
005412 
005412 
005412 



005414 

005414 
005414 
005420 
005424 
005424 
Q0b424 



004737 012072 



104423 



015746 
012746 
012746 
012746 
010600 
104414 
062706 
004757 

005046 
155716 
005046 
155716 
005046 
155716 
012746 
012746 
010600 
104414 
062706 
004 75 7 
004757 



104423 



004 73/ 
004 757 



1Q4423 



002334 
015605 
012124 
000003 



000010 
011276 



002514 
002312 

002510 
012161 
000004 



000012 
011522 
012072 



011322 
012072 



.SBTTL GLOBAL ERROR REPORT REPORT SECTION 

j /////////////////////.'//////////////// ///////////////////// ////////////////// 
/ THE GLOBAL ERROR REPORT SECTION CONTAINS ERROR MESSAGES 
/ THAT ARE USED IN MORE THAN ONE TEST. 
///////////////////////////////////////////////////////////////////////////// 

.EVEN 



; 



.SBTTL ERROR HANDLER -- FRR1 
BGNMSG ERR1 



"NO NOTHING" HANDLER 



JSR PC.NULERR 
ENDMSG 



ERR1; : 
jUSE COMMON ROUTINE TO TERMINATE ERROR MESSAGE 



L 10004 : 



TRAP 



C$MSG 



.SBTTL ERROR HANDLER -- ERR2 -~ C5R REGISTER ERROR REPORTING 



BGNMSG 
PRINTB 



ERR2 
$FMTO2,0TXT5,REGNUM 



ERR2: 



JSR 
PRINTB 



PC.X0RG8 

0KMT02A, <B ,GDATA> , <B,BDATA> , <B , XDATA> 



JSR 

JSR 
ENOMSG 



PC.ERR4J 
PC.NULERR 



{DUMP THE BYTE 
lUSE COMMON ROUTINE TO 



MOV 


REGNUM, -CSk) 


MOV 


4TXT5, -CSP) 


MOV 


4FMT02»-CSP) 


MOV 


03,-CSP) 


MOV 


SP.RO 


TRAP 


CJPNTB 


ADD 


£10, SP 


CLR 


-(SP) 


BISB 


XDATA.(SP) 


CLR 


-CSP) 


BISB 


BDATA.(SP) 


CLR 


-(SP) 


BISB 


GDATA,(3P) 


MOV 


OFMT02A, -(SP) 


MOV 


#4 . - ( SP ) 


MOV 


SP.RO 


TRAP 


C*PNTB 


ADO 


012, SP 


SELECT REGISTERS 




TERMINATE ERROR 


MESSAGE 


L10005: 





TRAP 



C5MSG 



I --■■-- - 

.SBTTL ERROR HANDLLR 

1 

BGNMSG ERR3 

JSR PC.ERR4* 
JSR PCNULERR 
ENDMSG 



ERR3 



DUMP THE DYTE SLLCCT REGISTERS 



ERR3: : 
I USE COMMON ROUTINE TO TERMINATE. ERROR Mt S^AuF 

L1QQ06* 



TRAP 



C4MSG 



L5 
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ERROR HANDLER -- ERR3 -- DUMP THE BYTE SELECT REGISTERS 



SEQ 0065 



2734 








2735 








2736 








2737 


005426 
005426 






2738 


005426 


010146 




2739 


005430 


113701 


002310 


2740 


0054 34 


122701 


000017 


2741 


005440 


103013 




2 742 


005442 








005442 


005046 






005444 


150116 






005446 


012746 


012400 




005452 


012746 


000002 




005456 


010600 






005460 


104415 






005462 


062706 


000006 


2743 


005466 


000425 




2744 








2745 


005470 


001001 




2746 


0054 72 


005001 




2747 


0054 74 


022701 


000007 


2748 


005500 


003002 




2749 


005502 


012701 


000006 


2750 


005506 


006301 




2751 


005510 








005510 


016146 


017532 




005514 


005046 






005516 


153716 


002310 




005522 


012746 


012443 




005526 


012746 


000003 




005532 


010600 






005534 


104415 






005536 


062706 


000010 


2752 








2753 


005542 


012601 




2754 


005544 


004737 


011710 


2755 


005550 
005550 








005550 


104423 




2756 








2757 








2758 








2759 


005552 
005552 






2760 


005552 








005552 


013746 


002334 




005556 


012746 


013605 




005562 


012746 


012124 




005566 


012746 


000003 




005572 


010600 






005574 


104414 






005576 


062706 


000010 


2/61 


005602 


004737 


011276 


2762 


005606 








-005606 


013746 


002314 




QQ5&12 


015746 


002312 



.SBTTL ERROR HANDLER -- ERR4 
BGNMSG ERR4 



M-LOOP TIMEOUT ERROR HANDLING 



MOV 


Rl, -CSP) 


MOVB 


GDATA.R1 


CMPB 


017, Rl 


BHIS 


5$ 


PRINTX 


0FMT5,<B,R1> 



ERR4; i 
iSAVE THE WORKING REGISTER 
{SAVE THIS FOR LATER 
jWAS THIS AN M-LOOP REQUEST? 
j YES, THEN REPORT THE FUNCTION CODE 
jNO, THEN IT MUST BE A BSEL1 SETTING 



BR 



20$ 



5$ 
6* 

7$ 



BNE 


6$ 


CLR 


Rl 


CMP 


07, Rl 


BGT 


7* 


MOV 


06, Rl 


ASL 


Rl 


PRINTX 


0FMT5 



TXTMLTCR1) 



;IF IT WAS A 17, THIS IS 
l THE TEXT POINTER MUST 
;IS FUNCTION CODE * 7? 
j NO, THEN WE CAN HANDLE IT 
;YES, THEN IT'S UNDEFINED - 
jCONVERT TO A WORD OFFSET 



CLR 




-CSP) 


BISB 




Rl.CSP) 


MOV 




0FMT5, -CSP) 


MOV 




02. -(SP) 


MOV 




SP.RO 


TRAP 




C$PNTx 


ADD 




oe.sp 


i A " 


NOP 


'* AND 


SO 


REFLECT. 



SAY SO 



; REPORT THE 



FAILING FUNCTION 


MOV 


TXTMLT(Rl).-CSP) 


CLR 


-CSP) 


BISB 


GDATA.CSP) 


MOV 


0FMT5A,~(SP) 


MOV 


03, -CSP) 


MOV 


SP,RO 


TRAP 


CJPNTX 


ADD 


010, SP 



20$: 



MOV 
JSR 
ENDMSG 



CSP)*,R1 
PC,ERR5$ 



;RESTQRE THE WORKING REGISTER 
{DUMP THE SELECT REGISTERS 



L 10007: 



TRAP 



C$MSG 



.SBTTL ERROR HANDLER 
BGNMSG ERR5 



ERR" 



WORD SELECT REG. ERRORS 



PRINTB ttFMT02,0TXT5,REGNUM 



ERRSit 



JSR PC,XORGB 

PRINTB OFMUQ.GDATA.BDATA.XUATA 



MOV 


REGNUM, <.SP) 


MOV 


0TXT5, -CSP") 


MOV 


OFMT02.-CSP) 


MOV 


03, (SP) 


MOV 


SP.RO 


TRAP 


C$PNTB 


ADD 


010, SP 


MOV 


XOA T A , -i SP ^ 


MOV 


BDATAi-CSP> 



M5 
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SEQ 0064 





005616 


013746 


002310 




005622 


012746 


012654 




005626 


012746 


000004 




005632 


010600 






005634 


104414 






005636 


062706 


000012 


2763 


005642 


004737 


011710 


2764 


005646 
005646 








005646 


104423 




2765 








2766 








2767 








2768 


005650 
005650 






2769 








2770 


005650 


010146 




2771 


005652 


012701 


002604 


2772 


005656 








005656 


012746 


013632 




005662 


012746 


012562 




005666 


012746 


000002 




005672 


010600 






005674 


104415 






005676 


062706 


000006 


2773 


005702 








005702 


005046 






005704 


152116 






005706 


005046 






005710 


152116 






005712 


005046 






005714 


152116 






005716 


005046 






005720 


152116 






005722 


005046 






005724 


152116 






005726 


005046 






005730 


152116 






005 732 


012746 


014004 




005736 


012746 


012571 




005742 


012746 


000010 




005746 


010600 






005750 


104415 






005752 


062706 


100022 


2774 


005756 








005756 


005046 






005760 


152116 






005762 


005046 






005764 


152116 






005766 


012746 


012637 




005772 


012746 


000003 




005776 


010600 






006000 


104415 






006002 


062706 


000010 


27 75 


006006 


012701 


003122 


2776 


006012 








006012 


005046 





JSR PC.ERR5* 
ENDMSG 



; 

.SBTTL ERROR HANDLER ~- ERR6 -- 



MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
;DUMP THE SELECT REGISTERS 

L10010: 

TRAP 

VIA REGISTER ERRORS W/FULL REG. DUMP 



GDATA.-(SP) 
0FMT1O, -(SP) 

♦4. -CSP) 
SP.RO 

CJPNTB 
£12, SP 



C$MSG 



BGNMSG ERR6 

ERR6: $ 
;*** PRINT THE FIRST HALF OP THE REGISTERS *** 
MOV Rl.-(SP) {PRESERVE Rl'5 CONTENTS 
MOV 0PATCR.R1 {POINT TC EXPECTED VALUES 

PRINTX ofmto6,otxt7 



PRINTX £FMT06A,£TXT8A 1 <B,(Rl)f>,<B,(Rl)f>,<B,(Rl)*> l <B 



PR INTX 0FMT06B ,<B,(R1)*> > <B,CR1)*> 



MOV OBTt.Rl 

PRINTX 0FMT06A.0TXT8B, 



{POINT TO ACTUAL VALUES 
<B,(Rl)o t <B,(Rl)*>,<B t (Rl)* >,<B 



MOV 


0TXT7, (SP) 


MOV 


OFMT06. -(SP) 


MOV 


02, (SP) 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


06. SP 


•<R1)»>, 


,<B.(R1)*>,<B,(R1)*> 


CLR 


-(SP) 


BISB 


(R1)+,(SP) 


CLR 


(SP) 


BISB 


(R1)*,(SP) 


CLR 


-(SP) 


BISB 


(Rl)» .(SP) 


CLR 


(SP) 


BISB 


(R1)*,(SP) 


CLR 


(SP) 


BISB 


(R1)*,(SP) 


CLR 


•(SP) 


BISB 


(R1)»,(SP) 


MOV 


0TXT8A. -CSP) 


MOV 


0FMT06A,-(SP) 


MOV 


010. -(SP) 


MOV 


SP.RO 


TRAP 


CfPNTX 


ADD 


022. SP 


CLR 


-(SP) 


BISB 


(R1)*,(SP) 


CLR 


-(SP) 


BISB 


(R1)».(SP) 


MOV 


0FMT06B, (SP) 


MOV 


03. CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


010. SP 


,CR1)*> 


,<B,(R1)*>,<B.CR1)*> 


CLR 


■(SP) 



Nb 
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006014 


152116 




006016 


005046 




006020 


152116 




006022 


005046 




006024 


152116 




006026 


005046 




006030 


152116 




006032 


005046 




006034 


152116 




006036 


005046 




006040 


152116 




006042 


012746 


014021 


006046 


012746 


012571 


006052 


012746 


000010 


006056 


010600 




006060 


104415 




006062 


062706 


000022 


27 77 006C66 






006066 


005046 




006070 


152116 




006072 


005046 




006074 


152116 




006076 


012746 


012637 


006102 


012746 


000003 


006106 


010600 




006110 


104415 




006112 


062706 


000010 


2 7 78 006116 


012701 


003206 


2779 006122 






006122 


005046 




006124 


152116 




006126 


005046 




006130 


152116 




00M3? 


005046 




006134 


152116 




006136 


005046 




006140 


152116 




006142 


005046 




006144 


152116 




006146 


005046 




006150 


152116 




006152 


012 746 


014036 


006156 


012746 


012571 


006162 


012746 


000010 


006166 


010600 




006170 


104415 




006172 


062706 


000022 


2780 006176 






006176 


005046 




006200 


152116 




006202 


005046 




006204 


i52U6 




006206 


012746 


012637 


006212 


012746 


000003 


006216 


010600 




006220 


104415 




006222 


062706 


000010 



PRINTX #FMTO&B,<B f (Rl)*>,<B,CRl)o 



MOV 0BT2.R1 {POINT TO XOR VALUES 

PRINTX #FMT06A,#TXTeC,<B.(RX)*>.<B.(Rl)*>,<B,(Rl)*>.<B 



PRINTX 0FMT06B , <B , ( Rl ) ♦ * , <B , CRD * > 





SEQ 0065 


BISB 


CRD + .CSP) 


CLR 


-(SP) 


BISB 


(RD*,(SP) 


CLR 


(SP) 


BISB 


CRD*, CSP) 


CLR 


-CSP) 


BISB 


CRD*, CSP) 


CLR 


-CSP) 


BISB 


CRD*. CSP) 


CLR 


-CSP) 


BISB 


CRD*, CSP) 


MOV 


0TXT8B, -(SP) 


MOV 


OFMT06A,- (SP) 


MOV 


010, -CSP) 


MOV 


SP,RO 


TRAP 


CSPNTX 


ADO 


022, SP 


CLR 


-(SP) 


BISB 


CRD*. CSP) 


CLR 


-CSP) 


BISB 


CRD*, CSP) 


MOV 


OFMT06B. -CSP) 


MOV 


03. -CSP) 


MOV 


SP,RO 


TRAP 


CtPNTX 


ADO 


#10, SP 


,CR1)*> 


<B.CR1)*>,<B,CR1)*> 


CLR 


-CSP) 


BISB 


CRD*, CSP) 


CLR 


-CSP) 


BISB 


CRD*, CSP) 


CLR 


-CSP) 


BISB 


CRD*. CSP) 


CLR 


CSP) 


BISB 


CR1)».CSP1 


CLR 


(SP) 


BISB 


CRD*. CSP) 


CLR 


-CSP) 


BISB 


CRD*, CSP) 


MOV 


0TXT8C, -CSP) 


MOV 


4FMT06A.-CSP) 


MOV 


010, -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


022, SP 


CLR 


(SP) 


BISB 


(RD+.CSP) 


CLR 


C SP ) 


BISB 


(R1)»,CSF "> 


MOV 


OFMTObB, CSP) 


MOV 


03 , ( ^P x 


MOV 


SP , RO 


TRAP 


C5PNT.X 


ADO 


010, SP 



Bt 
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2761 








2782 


006226 


012701 


002614 


2785 


006232 








006232 


012746 


013717 




006236 


012746 


012562 




006242 


012746 


000002 




006246 


010600 






006250 


104415 






006252 


062706 


000006 


2784 


006256 








006256 


005046 






006260 


152116 






006262 


005046 






006264 


152116 






006266 


005046 






006270 


152116 






006272 


005046 






006274 


152116 






006276 


005046 






006300 


152116 






006302 


005046 






006304 


152116 






006306 


012746 


014004 




006312 


012746 


012571 




006316 


012746 


000010 




006322 


010600 






0^6324 


104415 






006326 


062706 


000022 


2785 


006332 








006332 


005046 






006334 


152116 






006336 


005046 






006340 


152116 






006342 


012746 


01263 7 




0O6346 


012746 


000003 




006352 


010600 






006354 


104415 






006356 


062706 


000010 


2786 


006362 


012701 


003132 


2787 


006366 








006366 


005046 






006370 


152116 






006372 


005046 






006374 


152116 






006 3 76 


005046 






006400 


152116 






006402 


005046 






006404 


152116 






006406 


005046 






006410 


152116 






006412 


005046 






006414 


152116 






006416 


012746 


014021 




006422 


012746 


012571 




006426 


012746 


Q00010 




00*4 5? 


010600 






0Qfc4JA 


10441^ 











SEQ 0066 


ULL REG 


. DUMP 






i*** PRINT SECOND HALF OF THE REGISTERS *•* 






MOV 


*PATCR*8.,R1 iPOINT TO 2ND HALF OF 


REGISTERS EXPECTED VALUES 


PRINTX 


OFMTO6.0TXT7A 










MOV 


0TXT7A,-(SP) 






MOV 


♦FMT06,-(SP) 






MOV 


♦2 . - C SP ) 






MOV 


SP,RO 






TRAP 


C1PNTX 






ADD 


*6,SP 


PRINTX 


^FMT06A I 0TXT8A I <B,(R1)»>,<B # (RI)»>,<B ) 


,(m)»>,<B,(Ri)», 


,<B,(R1)»>,<B,(R1)»> 






CLR 


(SP) 






Bise 


(R1)»,(SP) 






CLR 


-(SP) 






BISB 


CR1)*.(SP) 






CLR 


(SP) 






BISB 


(R1)*.(SP) 






CLR 


-(SP) 






BISB 


(R1)*,(SP) 






CLR 


(SP) 






BISB 


(R1)*.(SP) 






CLR 


-(SP) 






BISB 


(R1)».(SP) 






MOV 


*TXT8A,-(SP) 






MOV 


*FMT06A. .(SP) 






MOV 


♦10, -(SP) 






MOV 


SP.RD 






TRAP 


C$PNTX 






ADD 


02? , SP 


PRINTX 


0FMT06B , <B , ( R 1 > ♦ > . <B . < R 1 ) ♦ » 










CLR 


(SP) 






BISB 


(R1)*.(SP) 






CLR 


(SP) 






BISB 


(Rl)^(SP) 






MOV 


0FMTO6B, -(SP) 






MOV 


#3,-(SP) 






MOV 


SP.RO 






TRAP 


CIPNTX 






ADD 


«10.SP 


MOV 


•6T1»S.,R1 jPOINT TO 2N0 HALF OF 


ACTUAL VALUES 




PRINTX 


ftFWQ6A»4TXT8B,<B»(RUt»i<Bi<Rl)*>fr<& 


.<Ri)*>»<B,<Rl>*> 


,<B.(R1)^,<B,(RI)»> 






CLR 


-(SP) 






BISB 


(R1)*,(SP) 






CLR 


-(SP) 






BISB 


(Rl)»,(SPi 






CLR 


(SP) 






BISB 


(RU..CSP) 






CLR 


■ i sp ) 






BISB 


IRI)*.(5P) 






CLR 


(SP) 






BISB 


(Rl)»,lSPi 






CLR 


(SP) 






BISB 


IR1)».ISP1 






MOV 


*TXT8B. tSP^ 






MOV 


*FMTOt>A, K $?) 






MOV 


010. -C5P) 






MOV 


SP,RO 






TRAP 


C*PNT\ 



ce. 
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SEQ 0067 



0064 56 


062706 


000022 




ADD 


022, SP 


2788 006442 






PRINTX 


0FMT06B , < B , ( R 1 ) ♦ > , <B , ( R 1) ♦ > 




006442 


005046 






CLR 


-(SP) 


006444 


152116 






BISB 


(R1)*,(SP) 


006446 


005046 






CLR 


-(SP) 


006450 


152116 






BISB 


(R1)*,(SP) 


006452 


012746 


012637 




MOV 


0FMT06B,-(SP) 


006456 


012746 


000003 




MOV 


03, (SP) 


006462 


010600 






MOV 


SP,RO 


006464 


104415 






TRAP 


CIPNTX 


006466 


062706 


000010 




ADD 


010, SP 


2789 006472 


012701 


003216 


MOV 


0BT2»8.,R1 jPOINT TO 2ND HALF OF XOR VALUES 




2790 0064 76 






PRINTX 


OFMT06A I OTXT8C,<B,(R1)*>,<B,(R1)*>,<B,(R1)»>,<B.(R1)»>, 


,<B,(R1)»>.<B.CR1)»> 


0064 76 


005046 






CLR 


(SP) 


006500 


152116 






RISB 


(R1)».(SP) 


006502 


005046 






CLR 


(SP) 


006504 


152116 






BISB 


(R1)*,(SP) 


006506 


005046 






CLR 


(SP) 


006510 


152116 






BISB 


CR1)*,(SP) 


006512 


005046 






CLR 


(SP) 


006514 


152116 






BISB 


(R1)»,(SP) 


006516 


005046 






CLR 


- C SP j 


006520 


152116 






BISB 


(Ri)*,(SP) 


006522 


005046 






CLR 


(SP) 


006524 


152116 






BISB 


(R1)».(SP) 


006526 


012746 


014036 




MOV 


0TXT8C, -(SP) 


006532 


012746 


012571 




MOV 


0fMT06A,-(SP) 


006556 


012746 


000010 




MOV 


010. -(SP) 


006542 


010600 






MOV 


SP.RO 


006544 


104415 






TRAP 


CIPNTX 


006546 


062706 


000022 




ADD 


022. SP 


2791 006552 






PRINTX 


OFMT06B,<B,(R1)»>.<B.(R1)*> 




006552 


005046 






CLR 


(SP) 


006554 


152116 






BISB 


(Rl)*,(SP) 


006556 


005046 






CLR 


(SP) 


006560 


152116 






BISB 


(Ri)»,(SP) 


006562 


012746 


012637 




MOV 


0FMT06B.-CSP) 


006566 


012746 


000003 




MOV 


03, (SP) 


006572 


010600 






MOV 


SP.RO 


006574 


104415 






TRAP 


CIPNTX 


006576 


062706 


000010 




ADD 


010, SP 


2 792 006602 


012601 




MOV 


(SP)*,R1 jRESTORE Rl 




2 793 006604 


004757 


012072 


JSR 


PCNULERR jUSE COMMON ROUTINE TO TERMINATE ERROR 


MESSAGE 


2794 006610 






ENDM5G 






006610 








L100U: 




006610 


104423 






TRAP 


CIMSG 


2 795 












2 796 






.SBTTl ERROR HANOI F.R -■ ERR7 -- VIA REGISTER ERRORS 




2797 












2798 006612 






BCNMSG 


ERR7 




006612 








EPR7; x 




2 799 006612 


113701 


002334 


MOVD 


REGNUM.R1 




2800 006616 


006301 




ASL 


PI |AS PASSED, THIS WAS A QYTfc OFFSET 




28Q1 006620 






PRINT© 


*FMTQ7*«TXTVRiTXTVRURi) 




006620 


016146 


017554 




MOV 


TxTVRURl>, vSP) 


006624 


012746 


01452/ 




MOV 


OTXlVR. -i.5P) 


-00^630" 


015746 


012530 




MUV 


0FMTO'.V(.SP) 



Db 
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SEQ 0068 



006634 


01274o 


000003 


006640 


010600 




006642 


104414 




006644 


062706 


000010 


£802 006650 


004737 


011276 


2803 006654 






006654 


005046 




006656 


153716 


002314 


006662 


005046 




006664 


153716 


002312 


006670 


005046 




006672 


153716 


002310 


006676 


012746 


012161 


006702 


012746 


000004 


006706 


010600 




006710 


104414 




006712 


062706 


000012 


2804 006716 


004737 


012072 


2805 006722 






006722 






006722 


104423 




2806 






2807 






2808 






2809 006724 






006724 






2810 






2811 






2812 006724 


013700 


002444 


2813 006730 


001404 




2814 006732 


020027 


000006 


2815 006736 


003401 




2816 006740 


005000 




2817 006742 


006300 




2818 006744 


016000 


007614 


2819 006750 






006750 


010046 




006752 


012746 


007232 


006 756 


012746 


000002 


006762 


C10600 




006764 


104415 




006766 


062706 


000006 


2820 






2821 






2822 006772 






006 772 


012746 


007263 


006776 


012746 


000001 


007002 


010600 




007004 


104415 




007006 


062706 


000004 


2823 






2 124 






2825 007012 






007012 


012746 


00 7322 


007016 


012/46 


000001 


00 7022 


C 10600 




007024 


104415 





JSR 
PRINTB 



PC.XORGB 
0FMT02A,<B,GDATA>.<B,BDATA>,<B,XDATA> 



MOV 03. (SP) 

MOV SP,RO 

TRAP CIPNTB 

ADD 010, SP 



JSR 
ENOMSG 



PC t NULERR 



CLR -(SP) 

BISB XDATA.CSP) 

CLR -CSP) 

BISB BDATA.CSP) 

CLR -(SP) 

BISB GDATA.CSP) 

MOV 0FMT02A, -(SP) 

MOV 04 , - C SP ) 

MOV SP»RO 

TRAP C*PNTB 

ADD 012, 5P 

{USE COMMON ROUTINE TO TERMINATE ERROR MESSAGE 



L10012: 



TRAP 



CiMSG 



l 

.SBTTL ERROR HANDLER -- ERR47 



BGNMSG ERR47 

PRINT HEADING LINE 1 



FOR RAM DATA ERRORS IN STATIC TEST(S^ 

ERR47: : 



2$: 



MOV 


TMP2.R0 


BEQ 


2$ 


CMP 


R0,06 


BLE 


ct 


CLR 


RO 


ASL 


RO 


MOV 


TXT47PCR0),R0 


PRINTX 


0FMT47A.R0 



jGFT TFST PATTERN COOF 

i ZERO IS UNDEFINED BUT THERE IS TEXT 

I THIS IT ALL Wt LACERSTAND FOR NOW 

lIF WITHIN LIMITS. LET IT GO 

lELSE, MAKE IT FOR "UNDEFINED" 

I CONVERT TO A WORD INDEX 

»GET ADDRESS OF REQUIRED TEXT 

I IDENTIFY TEST PATTERN BEING USED 



TO SAY THAT 



PRINT HEADING LINE 2 
PRINTX 0FMT47B 



j STANDARD PORTION OF LINE 2 



PRINT HEADING LINE 3 
PRINTX OFMT47C 



j STANDARD PORTION OK LINE 3 



MOV 


RO, (SP) 




MOV 


0FMT47A. ■ 


(SP) 


MOV 


02 . ( SP ) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


06, SP 




MOV 


0fMT478, 


(SP) 


MOV 


Oi. CSP) 




MOV 


SP.RO 




TRAP 


CJPNTX 




ADD 


04,SP 




MOV 


OFMT47C, 


-(SP) 


MOV 


01, ASP) 




MOV 


SP.RO 




TRAP 


CJPNTX 





E6 
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SEQ 0069 



007026 062706 000004 



2826 

2827 
2828 



2829 
2830 
2831 



2832 
2833 
2834 



2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 



2849 
2850 
2851 



2852 



007032 
007032 
007036 
007042 
007044 
007046 



007052 
007052 
007056 
007062 
007064 
007066 
007072 
007076 
007102 
007102 
007102 

007104 
007106 

007110 

007] 10 
007116 
007120 

007124 
007130 
007134 
007136 
007136 
007140 
007142 
007144 
007150 
007152 
007154 
007160 
007164 
007170 
007172 
007174 
007200 
007206 
007210 
007210 
007214 
007220 
007222 
007^24 
007230 



012746 
012746 
010600 
104415 
062706 



012746 
012746 
010600 
104415 
062706 
005037 
004737 



104423 

000000 
000020 



023737 
103044 
005237 

113701 
113703 
074103 

005046 
150316 
005046 
153716 
005046 
150116 
013746 
012746 
012746 
010600 
104415 
062706 
023737 
001010 

012746 
012746 
010600 
104415 
062706 
000207 



007350 
000001 



000004 



012121 
000001 



000004 
007104 
007110 



007104 

007104 

002450 
002452 



002452 



002464 

007407 
000005 



000014 
007104 



010644 
000001 



000004 



l 



PRINT HEADING LINE 4 4 
PRINTX 4FMT47E 



ADD 



44.SP 



j STANDARD PORTION OF LINE 4 



GO PRINT DATA PORTION OF ERROR MESSAGE 
PRINTX 4NEWLIN 



CLR 
JSR 
ENDMSG 



ER4 7CT; .WORD 
ER47MX: .WORD 



ERR47.5 



007106 



CMP 

BHIS 

INC 

MOVB 
MOVB 
XOR 
PRINTX 



007106 



CMP 
BNE 
PRINTX 



ER4 7CT 
PC,ERR47, 




16, 



ER47CT,ER4 7MX 

60$ 

ER47CT 



1 TERMINATE HEADER 6 CAUSE 1 BLANK LINE 

MOV 
MOV 
MOV 
TRAP 
ADD 
jRE -INITIALIZE THE DATA LINE COUNTER 
j USE COMMON SUBROUTINE TO REPORT DATA 



MOV 


4FMT47E, ■ 


-CSP) 


MOV 


41, -CSP) 




MOV 


SP.RO 




TRAP 


CiPNTX 




ADD 


44, SP 




IK LINE 






MOV 


4NEWLIN, 


•CSP) 


MOV 


41, -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


44, SP 





L10013: 



TRAP 



CJMSG 



I THIS VARIABLE WILL COUNT THE DATA LINES 
{THIS CONSTANT LIMITS THE DATA LINES PRINTED 



jHAVE WE REP0R1EU ENOUGH OF THESE DATA LINES? 
i YES, BYPASS THIS WHOLE ROUTINE AND EXIT 
|N0, COUNT THIS LINE 



TMP4.R1 jGET EXPECTED DATA 

TMP5,R3 iSETUP TO CALCULATE XOR 

R1.R3 CALCULATE XOR OF EXPECTED 

4FMT47G,TMPA,<B,R1>,<B,TMP5>,<B,R3> ; PRINT 



ER4/CT,ER47MX 

601 

4FMT48I 



»IF THESE TWO ARE EQUAL 

> ANY MORE LINES FOR A WHILE. 

j PUT OUT A MESSAGE TO THAT 



60$ 



RT5 



PC 



6 ACTUAL DATA 
DATA LINE 

CLR 

BISB 

CLR 

BISB 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 
WE WON' T BE 
SO, 
EFFECT. 

MOV 

MOV 

MOV 

TRAP 

ADD 



-CSP) 

R3.CSP) 

-CSP) 

TMP5.CSP) 
-(SP) 
Rl.CSP) 
TMPA, -(SP) 
4TMT47G. -CSP) 
45, -(SP) 
SP,RO 
C$PNTX 
014, SP 
PRINTING 



4FMT48I, .(SP> 
41, (SP) 

SP.RO 
C*PN1X 
44, SP 



F6 
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ERROR HANDLER — ERR47 -- FOR RAM DATA ERRORS IN STATIC TESTCS 



SEQ 0070 



2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 



2869 
2870 
28 n 
28,2 
2873 
2874 
2875 

2876 
2877 
2878 



2879 
2880 
2881 



2882 
2883 
2884 



007232 
007263 
007322 
007350 
007407 
00 7442 
007453 
007466 
007510 
007533 
007556 



007614 
007622 
007630 



2885 
2886 
2887 
2888 



007632 
007632 



007632 
007632 
007636 
007642 
007644 
007646 
007652 
007660 
007662 
007662 
007666 
00 7672 
007674 
007676 



007 702 
00770? 
007706 
007712 
007714 
007716 



00773? 
007 722 
007/26 
007732 



045 
045 
045 
045 
045 
101 
101 
061 
062 
101 
111 



014235 
007466 
007556 



012746 
012746 
010600 
104415 
062706 
032737 
001410 

012746 
012746 
010600 
104415 
062706 



012746 
012746 
010600 
104415 
062706 



116 
116 
116 
116 
116 
114 
114 
040 
040 
104 
116 



007442 
007510 



010300 
000001 



000004 
000004 



010347 
000001 



000004 



01040? 
000001 



000004 



012746 01043/ 
012746 000001 
010600 



045 
045 
045 
045 
045 
114 
114 
102 
102 
104 
103 



007453 
007533 



002350 



.NLIST 

FMT47A 

FMT4 7B 

FMT47C 

FMT47E 

FMT47G 

TXT47C 

TXT47D 

TXT47E 

TXT47F 

TXT47G 

TXT47H 

♦ LIST 

.EVEN 

TXT47P; 



BEX 

.ASCIZ 

.ASCIZ 

, ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

BEX 



\*N*S2*ATEST PATTERN; *T\ 

\*N*S2*A CALL VALUES IN OCTAL )\ 

\*N*S3*A RAM SHOULDN 

\*N*S3*AA0DRESS BE IS XOR\ 

\*N*S4*04*S4»<03rfS3i<03rfS2i<03\ 

\ALL ONES\ 

\ALL ZEROESN 

\1 BIT ALTERNATINGN 

\2 BITS ALTERNATION 

\ADDRESS IN ADORESSN 

UNCREMENTAL VALUE IN ADDRESSN 



.WORD TXTML6 , TXT47C , TXT47D , TXT47E , TXT47F f TXT4 7G , TXT4 7H 



"TXTML6" ABOVE IS DEFINED AS "UNDEFINED' 4 IN THE M-LOOP FUNCTION DEF'S. 



.SBTTL ERROR HANDLER — ERR48 

I - 

BGNMSG ERR48 

; PRINT HEADING LINE 1 
PRINTX 0FMT48A 



- FOR DATA ERRORS IN "MOVING INVERSIONS TEST" 

ERR48;: 
j STANDARD PORTION OF LINE t 



2$ 







MOV 


0FMT48A. 


•(SP) 






MOV 


*1,~(SP) 








MOV 


SP.RO 








TRAP 


C*PNTX 








ADD 


04. SP 




BIT *8IT2,PFLAG 


j IF EXTENDED INFORMATION REQUESTED. 






BEQ 2* 










PRINTX 0FMT48B 


iPRINT EXTENDED PORTION OF LINE 


1 










MOV 


$FMT48B, 


-(SP) 






MOV 


«1. -(SP) 








MOV 


SP.RO 








TRAP 


CiPNTX 








ADD 


04.SP 




PRINT HEADING LINE ti 2 










PRINTX 0FMT48C 


I STANDARD PORTION OF LINE 2 












MOV 


OFMT48C. 


-(SP) 






MOV 


• 1. (SP) 








MOV 


SP.RO 








TRAP 


CiPNTX 








ADD 


04, SP 





PRINT HEADING t INE 3 
PRINTX &FMT48E 



1 STANDARD PORTION uF LINE 3 



MOV 
MOV 
MOV 



SFMT481 . 
01. ISP) 
SP.RO 



* <. SP ) 



G6 
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ERROR HANDLER -- ERR48 -- FOR DATA ERRORS IN "MOVING INVERSION 



SEQ 0071 



2889 

2890 
2891 



2892 
2893 
2b94 



2895 
2896 
2897 



2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 



007734 
007736 
007742 
007750 
007752 
007752 
007 756 
007762 
007764 
007766 



007772 
007772 
007 7 76 
010002 
010004 
010006 
010012 
010016 
010022 
010022 
010022 

010024 
010026 

C10030 

010030 
010036 
010040 



010044 
010052 
C 10054 
010060 
010064 

01OO66 
010072 
010076 
010102 
010104 
010104 
010106 
010110 
010112 
010116 
010120 
010122 
010126 
010130 
010134 
010140 



104415 
062706 
032737 
001410 

012746 
012746 
010600 
104415 
062706 



012746 
012746 
010600 
104415 
062706 
005037 
004737 



104423 

000000 
000020 



023737 
103117 
005237 



032737 
001405 
012700 
113701 
000404 

012700 
113701 
013703 
074103 

005046 
150316 
005046 
153716 
0C5046 
150116 
013746 
010046 
012^46 
012746 
010600 



000004 

000004 002350 



010506 
000001 



000004 



012121 
000001 



000004 
010024 
010030 



002452 



002464 

010551 
000006 



BIT 
BEQ 
PRINTX 



4BIT2.PFLAG 

6$ 

4FMT48F 



IRAK 
ADD 
I IF EXTENDED INFORMATION REQUESTED, 



l PRINT EXTENDED PORTION OF LINE 3 

MOV 
MOV 
MOV 
TRAP 
ADD 
GO PRINT DATA PORTION OF ERROR MESSAGE 



6$ 



PRINTX ONEWLIN 



CLR 
JSR 
ENOMSG 



ER48CTj .WORD 
ER48MX; , WORD 



ERR48.: 



010024 010026 
010024 

000002 0024 76 

010736 
002450 



010743 
002451 
002452 



CMP 
BHIS 

INC 



ER48CT 
PCERR46, 




16. 



ER48CT,ER48MX 

60 i 

ER48CT 



I TERMINATE HEADER 6 CAUSE 1 BLANK LINE 

MOV 
MOV 
MOV 
TRAP 
ADD 
{REINITIALIZE THE DATA LINE COUNTER 
{USE COMMON SUBROUTINE TO REPORT DATA 



L10014: 



TRAP 



C$PNTX 
04 t $P 



0FMT4ttr,-(SP) 
♦X.-CSP) 

SP.RO 
CiPNTX 
04 , SP 



SNEULIN, -(SP) 

♦l.-(SP) 

SP.RO 

CiPNTX 

04, SP 



C*MSG 



;THIS VARIABLE WILL COUNT THE DATA LINES 
{THIS CONSTANT LIMITS THE DATA LINES PRINTED 



lHAVE WE REPORTED ENOUGH OF THESE DATA LINES? 
j*ES, BYPASS THIS WHOLE ROUTINE AND EXIT 
j NO, COUNT THIS LINE 



j DETERMINT WHICH ERROR CALL GOT US HERE 



PRE-WRITE OR POST-WRITE: 



2$: 
4$: 



BIT 

BEQ 

MOV 

MOVB 

BR 

MOV 

MOVB 

MOV 

XOR 

PRINTX 



*BIT1,TMPF 
2$ 

0TXT48A.RO 
TMP4,R1 

4* 



iDIO PRE-WRITE ERROR CALL GET US HERE? 

iNO, THEN SETUP FOR "POST" IN ERROR MESSAGE 

lYES, SETUP FOR "PRE" IN ERROR MESSAGE 

{GET EXPECTED DATA (BEFORE WRITING NEW VALUE) 



0TXT48B,R0 jPOINT TO "POST" TEXT 

TMP4»i,Rl ,GET EXPECTED DATA (AFTER WRITING NEW VALUE) 

TMP5.R3 {SETUP TO CALCULATE XOR 

R1.R3 {CALCULATE XOR OF EXPECTED £ ACTUAL DATA 

ftFMT48(j,R0,TMPA,<B.Rl>,<B,TMP5>,<B,R3* {PRINT STANOARD DATA LINE 

CLR (SP) 

BISB R3.C5P) 

CLR -(SP) 

BISB TMP5,vSP) 

CLR (SP) 

BrSB Rl,(SP> 

MOV TMPA, (SP) 

MOV R0 # ^"■Pl 

MOV OFMMSli, (SP) 

MOV ot t (.SP) 

MOV SP.RO 



Hb 
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SEQ 0072 


OR HANDLER - 


- ERR48 


-- FOR DATA ERRORS IN "MOVING INVERSION 






010142 


104415 












TRAP 


C$PNTX 


010144 


062 706 


000016 










ADD 


016, SP 


2921 010150 


032737 


000004 


002350 




BIT 


06IT2.PFLAG 


iIF EXTENDED INFORMATION REQUESTED, 




2922 010156 


001433 








BEQ 


10$ 






2923 














tSETUP FOR PRINTING OF EXTENDED INFORMATION 


2924 010160 


013701 


0024 70 






MOV 


TMPC.R1 


iDATA BIT VALUE (0 OR 1) 




2^5 010164 


042701 


177776 






BIC 


OtCBITO,Rl 


1 MAKE SURE WE ONLY HAVE ONE BIT 




292t 010170 


005737 


0024 72 






TST 


TMPD 


jDIRECTION? 




2927 010174 


001003 








BNE 


6$ 


I BACKWARD -- 




292( 010176 


012700 


010750 






MOV 


OTXT48C.RO 


I FORWARD -- ■ 




2929 010202 


000402 








BR 


8$ 






2930 010204 


012700 


010755 




6$; 


MOV 


0TXT48D.R0 


j BACKWARD -- 




2931 010210 








8$i 


PRINTX 


0FMT48H,TMP6,R1 


,R0,<B,TMP9> jPRINT EXTENDED INFORMATION 


010210 


005046 












CLR 


-(sp; 


010212 


153716 


002462 










BISB 


IMl J.CZr > 


010216 


010046 












MOV 


RO, -CSP) 


010220 


010146 












MOV 


Rl.-(SP) 


010222 


013746 


002466 










MOV 


TMPB.-(SP) 


010226 


012746 


010611 










MOV 


0FMT48H, -(SP) 


010232 


012746 


000005 










MOV 


05, -(SP) 


010236 


010600 












MOV 


SP,RO 


010240 


104415 












TRAP 


C$PNTX 


010242 


062706 


000014 










ADD 


014, SP 


2932 010246 


023737 


010024 


010026 


10$: 


CMP 


ER48CT.ER48MX 


j IF THESE TWO ARE EQUAL, WE WON'T BE 


PRINTING 


2933 010254 


001010 








BNE 


60$ 


lANY MORE LINES FOR A WHILE. SO. 




2934 010256 










PRINTX 


0FMT48I 


i PUT OUT A MESSAGE TO THAT EFFECT. 




010256 


012746 


010644 










MOV 


OFMT48I, -CSP) 


010262 


012746 


000001 










MOV 


01. -CSP) 


010266 


010600 












MOV 


SP.RO 


010270 


104415 












TRAP 


CJPNTX 


010272 


062706 


000004 










ADD 


04, SP 


2935 010276 








60$; 










2936 010276 


000207 








RTS 


PC 






2937 








.NLIST 


BEX 








2938 010300 


045 


116 


045 


FMT48A 


.ASCIZ 


\*N*S2*APRE OR 


(ALL VALUES IN OCTAD\ 




2939 010347 


045 


123 


065 


FMT48B 


.ASCI? 


\*S5#AEXTENDED 


INFORMATIONS 




2940 010402 


045 


116 


045 


FMT48C 


.ASCIZ 


\*N#S3#AP0ST 


RAM SHOULDN 




2941 010437 


045 


116 


045 


FMT48E 


.ASCIZ 


\*N*S2*AWRITE 


ADDRESS BE IS XOR\ 




2942 010506 


045 


123 


065 


FMT48F 


.ASCIZ 


\#S5*ABIT DATA 


SEQ LSB(DECIMAL)\ 




2943 010551 


045 


116 


045 


FMT48G 


.ASCIZ 


\#N*S3#T*S4*04*S4#03#S3i<03*S2*03\ 




2944 010611 


045 


123 


066 


FMT48H 


.ASCIZ 


\*S6*01*S5*01*S3*T*S2*D2*A. \ 




2945 010644 


045 


116 


045 


FMT48I 


.ASCIZ 


\*N*N*S5*AFURTHER DATA LINES SUPRESSED UNTIL NEW TEST 


DATA\ 


2946 010736 


120 


122 


105 


TXT48A 


.ASCIZ 


\PRE \ 






2947 010743 


120 


117 


123 


TXT48B 


.ASCIZ 


\P0ST\ 






2948 010750 


040 


106 


127 


TXT48C 


.ASCIZ 


\ FWD\ 






2949 010755 


102 


113 


127 


TXT48D 


.ASCIZ 


\BKWD\ 






2950 








.LIST 


BEX 








2951 








.EVEN 










2952 


















2953 


















2954 


















2^55 

295b 








ISBTTL 


ERROR HANDIER -- F.RR50 


• FOR REPORTING TIMER 1 ERRORS 




2957 010 762 


• 


BGNMSG 


tRR50 






010762 














ERR50: : 




2958 010/62 


OiOMb 








MOV 


Hi, (SP) 


l SAVE Rl FOR CALLEK 




2959 010764 


113701 


00246/ 






MOVB 


TMPBO.Hl 


tGtT THE MODE LAST SETUP 





16 
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ERROR HANDLER -- ERR50 -- FOR REPORTING TIMER 1 ERRORS 



SEQ 0073 



29t>o 

2962 
2963 
2964 
2965 
2966 
296? 
2968 



29 70 
2971 
2972 



2973 
2974 



2976 



010770 000241 



297 7 
2978 

2979 



010772 
010776 
011000 
011002 



011004 
011004 
011006 
011012 
011016 
011020 
011022 



011026 
011026 
011032 
011036 
011040 
011042 



011046 
011046 
011050 
011054 
011056 
011062 
011064 
011070 
011072 
011076 
011102 
011106 
011112 
011114 
011116 
011122 
011122 
011124 
011130 
011132 
011136 
011142 
011146 
011150 
011152 



011156 
011156 
011160 
011164 



042701 
106101 
106101 
106101 



010146 
012746 
012746 
010600 
104415 
062706 



012746 
012746 
010600 
104415 
062706 



005046 
153716 
005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
012746 
010600 
104415 
062706 

005046 
153716 
005046 
153716 
012746 
012746 
010600 
104415 
062706 



005046 
155716 
005046 



177477 



012 74 7 
000002 



000006 



013021 
000001 



000004 

002455 

002457 

002451 

002453 
014053 
013102 
000006 

000016 

0024 75 

00246 7 
013142 
000003 

000010 
002454 



CLC iStEING AS 1HE CARRY BIT WILL BE ROTATED INTO 

{THE DATA, WE HAD BETTER CLEAR IT JUST IN CASE. 
BIC 0rC<BIT6*BIT7>,Rl jLOOK Q JUST THE TIMER 1 MODE DEFINITION 
ROLB Rl iPOSITION IT FOR PRINTOUT 

ROLB Rl 
ROLB Rl 

j IDENTIFY THE MODE BEING USED AT THE TIME: 

PRINTX 0FMT5OA.R1 

MOV Rl.-CSP) 

MOV 0FMTSOA, -CSP) 

MOV 02. -CSP) 

MOV SP.RO 

TRAP C$PNTX 

ADD 06, SP 



jPRINT THE HEADING TO IDENTIFY THE REGISTERS: 
PRINTX 0FMT5OB 



{AND THE VALUES THAT WERE LOADED INTO Tht REGISTERS: 



MOV 0FMT5OB, -CSP) 

MOV 01, -CSP) 

MOV SP.RO 

TRAP CSPNTX 

ADD 04, SP 



PRINTX 0FMT5Ol,0TXT6D,<B,TMP5>l>,<B,TMP4»l>,<B,TMP7*l>,<B,TMP6*l> 



PRINTX GFMTSOD.'B.TMPBU^'B.TMPEU* 



I AND THE VALUES READ FROM THOS^ REGISTERS: 



CLR -CSP) 

BISB TMP6*1,(SP) 

CLR -CSP) 

BISB TNP7.1.CSP) 

CLR -CSP) 

BISB TMP4*1.CSP) 

CLR -CSP) 

BISB TMP5*l,(SP) 

MOV 0TXT8D, CSP N 

MOV 0FMT5OC. -CSP) 

MOV 06,-lSP) 

MOV SP.RO 

TRAP CJPN^X 

ADD 016, SP 

CLR -(SP) 

BTSB TMPF. ♦l.CSP) 

CLR CSP) 

BISB TMPB»l,t*»P) 

MOV frFMT50D, I SP ) 

MOV 03. -C5P) 

MO* SP.HO 

TRAP CJPNTX 

ADD 01O.SP 



PRINTX 0FMT5OC,^TXT6F. ,<B,TMP5>, <B ( TMP*> , <B , IMP 7 > , t B . TMP<, 



Ci R ^ sr > 

CLR ^SP) 



je 
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ERROR HANDLER -- ERR50 -- FOR REPORTING TIMER ft 1 ERRORS 



2980 



2981 
2982 
2963 
2984 



2965 
2986 



011166 
011172 
011174 
011200 
011202 
011206 
011212 
011216 
011222 
011224 
011226 
011232 
011232 
011234 
011240 
011242 
011246 
011252 
011256 
011260 
011262 

011266 
011272 
011274 
0112^4 
011274 



153716 
005046 
153716 
005046 
153716 
012746 
012746 
012746 
010600 
104415 
062706 

005046 
153716 
005046 
153716 
012746 
012746 
010600 
104415 
062706 

004737 
012601 



104423 



002456 

002450 

002452 
014070 
013102 
000006 

000016 



PRINTX 0KMT5OE ♦ <B, TMPB> , <B , TMPD> 



0024 



TO 



002466 
013157 
000003 



000010 
012072 





SEQ 00 74 


BISB 


TMP7.CSP) 


CLR 


-CSP) 


BISB 


TMP4,CSP) 


CLR 


-CSP) 


BISB 


TMP5 . ( SP ) 


MOV 


ftTXTBE, -CSP) 


MOV 


0FMT5OC, -CSP) 


MOV 


06 , - C SP ) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


frl6,SP 


CLR 


-(SP) 


BISB 


TMPD,(SP) 


CLR 


-CSP) 


BISB 


TMPB.CSP) 


MOV 


0FMT50E, -CSP) 


MOV 


ft5 , ( SP ) 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


010, SP 



JSR 
MOV 
ENDMSG 



PC, NULERR 
CSP)*,R1 



jUSfc COMMON ROUTINE TO TERMINATE ERROR MESSAGE 
{RESTORE Rl FOR CALLER 



L10015: 



TRAP 



C$MSG 



Kb 



CNOMAAO DMVll MCTRl. 01 AG 0\ 
ERROR HANDLER SUBROUTINES 



2988 

2090 
2991 

2992 
2995 
2994 
2995 

2996 
299/ 
2998 
2999 
.5000 
3001 
3002 
3003 
3004 
3005 
3006 
300 7 
3008 
3009 
3010 
3011 
3012 



011276 
011300 
011304 
011312 
011316 
011320 



010146 
013701 
013737 
074137 
012601 
000207 



3013 



3014 



30it> 



011322 
011322 
011326 
011332 
011336 
011342 
011344 
011346 
011352 
011352 
011354 
011360 
011362 
011366 
011370 
011374 
011376 
011402 
011406 
011412 
011414 
011416 
011422 
011422 
011426 
011432 
011436 
011440 
011442 
011446 
011446 
011450 
0U454 



012746 
012746 
012746 
012746 
010600 
104415 
062706 

005046 
153716 
005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
012/46 
010600 
104415 
062706 

005046 
153716 
005046 
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.SBTTL ERROR HANDLER SUBROUTINES 

i SUBROUTINES USED ONLY BY ERROR HANDLERS 

! SBTTL ERROR HANDLER SUBROUTINE -- XORGB 

\ PERFORM EXCLUSIVE OR BETWEEN "GDATA" 6 "BDATA" PUTTING 

; THE RESULT IN "XDATA" 



002310 
002312 
002314 



XORGB: 



002314 



013253 
013454 
012245 
000003 



000010 

002254 

002252 

002250 

002246 
012305 
000005 

000014 

013311 
012340 
000002 

000006 

002264 



MOV 


Rl. -(SP) 


{PRESERVE WORKING REGISTER 


MOV 


GDATA, Rl 


j GET "GOOD" DATA 


MOV 


BDATA, XDATA 


{AND "BAD" DATA 


XOR 


Rl, XDATA 


{PERFORM EXCLUSIVE OR 


MOV 


CSPV.R1 


{RESTORE Rl 


RTS 


PC 


{RETURN 



.SBTTL ERROR HANDLER SUBROUTINE -- ERR4* 

! IDENTIFY L DUMP THE BYTE SELECT REGISTERS 
ERR4$j PRINTX 0FMT4, 0TXT3, tfTXTl 



PRINTX #FMT4A,<B I BSR0> I <B I BSR1>, <B ,BSR2> ,<8,BSR3> 



PRINTX 4FMT4B.0TXT2 



PRINTX tfFMT4C,<B,BSR4^,<B,BSR5>,<B,BSRb>,<B,BSR7> 



SEQ 0075 



MOV 


oTxn. -(sp) 


MOV 


0TXT3, -(SP) 


MOV 


*FMT4, (SP) 


MOV 


*3. -(SP) 


MOV 


SP,RO 


TRAP 


C*PNTX 


ADD 


010, SP 


CLR 


(SP) 


BISB 


BSR3,(SP) 


CLR 


(SP) 


BISB 


BSR2.CSP) 


CLR 


(SP) 


BISB 


Bsni.csp) 


CLR 


-(SP) 


BISB 


BSRO.CSP) 


MOV 


0FMT4A, (SP) 


MOV 


05, -(SP) 


MOV 


SP.RO 


TRAP 


C5PNTX 


ADD 


014, SP 


MOV 


0TXT2. (SP) 


MOV 


SFMT4B, (SP) 


MOV 


02, (SP) 


MOV 


SP.RO 


TRAP 


CSPNTX 


ADD 


06 , SP 


CLR 


vSP> 


BISB 


BSH.'^SP) 


CLR 


-CSP) 



..6 
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ERROR HANDLER SUBROUTINE -- ERR4* 



3016 



3017 



3018 



3019 



3020 
3021 
3022 
3025 
3Q24 



011456 

011462 

011464 

011470 

011472 

011476 

011502 

011506 

011510 

011512 

011516 

011516 

011522 

011526 

011532 

011534 

011536 

011542 

011542 

011544 

011550 

011552 

011556 

011560 

011564 

011566 

011572 

011576 

011602 

011604 

011606 

011612 

011612 

011616 

011622 

011626 

011630 

011632 

011636 

011636 

011640 

011644 

011646 

011652 

011654 

011660 

011662 

011666 

011672 

011676 

011/00 

011702 

011706 



153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
012746 
010600 
104415 
062706 

005046 
153716 
005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
012746 
010600 
104415 
062706 

005046 
153716 
005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104415 
062 706 
000207 



002262 

002260 

002256 
012345 
000005 

000014 

013353 
012340 
000002 

000006 

002274 

002272 

002270 

002266 
012305 
000005 

000014 

013412 
012340 
000002 

000006 

002304 

002302 

002300 

002276 
012345 
000005 

QQ0014 



PRINTX 0FMT4B.0TXT2A 



PRINTX 0FMT4A,<B.BSR10>,<B»BSR11>,<B,BSR12>,<B.BSR13> 



PRINTX 0FMT4B.0TXT2B 



PRINTX 0FMT4C,<B,BSR14>.<B,BSRl5>,<B,BSR16>,<B t BSR17> 



RTS 



PC 





SEQ 0076 


BISB 


BSR6,(SP) 


CLR 


-(SP) 


BISB 


BSR5,CSP) 


CLR 


-(SP) 


BISB 


BSR4,(SP) 


MOV 


0FMT4C,-(SP) 


MOV 


05. "(SP) 


MOV 


SP,R0 


TRAP 


C5PNTX 


ADD 


014, SP 


MOV 


0TXT2A, -(SP) 


MOV 


0FMT4B, -(SP) 


MOV 


02 . - ( SP ) 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


06, SP 


CLR 


-(SP) 


BISB 


BSR13,(SP) 


CLR 


(SP) 


BISB 


BSR12,(SP) 


CLR 


(SP) 


BISB 


BSR11.CSP) 


CLR 


-(SP) 


BISB 


BSRIO.(SP) 


MOV 


0FMT4A, -(SP) 


MOV 


#5, (SP) 


MOV 


SP.RO 


TRAP 


CiPNTX 


ADO 


014, SP 


MOV 


0TXT2B, -(SP) 


MOV 


0FMT4B, (SP) 


MOV 


02. -(SP) 


MOV 


SP.RO 


TRAP 


CJPNTX 


ADD 


06. SP 


CLR 


-(SP) 


BISB 


BSR17,(SP) 


CLR 


(SP) 


BISB 


BSR16.CSP) 


CLR 


-(SP) 


BISB 


BSR15.(SP) 


CLR 


-(SP) 


BISB 


HSR14.CSP) 


MOV 


Of MT4C, -(SP) 


MOV 


05. -(SP^ 


MOV 


SP.RO 


TRAP 


CJPNTX 


ADD 


014, SP 



.SBTTL ERROR HANDLER SUBROUTINE -- ERRS* 



M6 
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SEQ 00 77 



302* 
3026 
3027 



3028 



3029 



3030 



3031 
3032 
3033 
3034 
3035 
3036 
3037 



3038 
3039 



011710 
011710 
011710 
011714 
011720 
011724 
011730 
011732 
011734 
011740 
011740 
011744 
011750 
011754 
011760 
011764 
011770 
011772 
011774 
012000 
012000 
012004 
012010 
012014 
012016 
012020 
012024 
012024 
012030 
012034 
012040 
012044 
0)2050 
012054 
012056 
012C60 
012064 
012070 



0120 72 
012072 
012076 
012102 
012104 
012106 
012112 



012746 
012746 
012746 
012746 
010600 
104415 
062706 

013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
012746 
010600 
104415 
062706 

013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062 706 
004737 
000207 



012746 
012746 
010600 

104414 
062706 
000207 



0135C4 
013607 
012245 
000003 



OOOO'JO 

0022^.4 
002252 
002250 
002246 
012730 
000005 



000014 

013544 
012340 
000002 



000006 

002264 
002262 
002260 
002256 

012730 
000005 



000014 
012072 



012114 
000001 



000004 



ERR5*j 



COMMON ERROR SUBROUTINE TO PRINT SELECT REGISTERS 



PRINTX 


#FKT4,#TXT6,*TXT4 






MOV 


4TXT4.-CSP) 




MOV 


0TXT6, (SP) 




MOV 


#FMT4, (SP) 




MOV 


#3, CSP) 




MOV 


SP.RO 




TRAP 


C*PNTX 




ADD 


no , sp 


PRINTX 


4FMT11,WSR0,WSR2,WSR4,WSR6 {DUMP THE SELECT REGISTERS 






MOV 


WSR6,-C3P) 




MOV 


USR4.-CSP) 




MOV 


USR2,-C5P) 




MOV 


USRO.-CSP) 




MOV 


#FMT11.-(SP) 




MOV 


45, -CSP) 




MOV 


SP.RO 




TRAP 


CJPNTX 




ADD 


014, SP 


PRINTX 


4FMT4B.0TXT4A 






MOV 


0TXT4A.-CSP) 




MOV 


0FMT4B, -CSP) 




MOV 


02, -CSP) 




MOV 


SP , RO 




TRAP 


C$PNTX 




ADD 


06, SP 


PRINTX 


^FMT11,WSR10 I WSR12,WSR14 I WSR16 






MOV 


WSR16.-CSP) ; 




MOV 


WSR14.-CSP) 




MOV 


USR12.-CSP) 




MOV 


WSR10.-CSP) 




MOV 


*FMT11,-CSP) 




MOV 


#5. CSP) : 




MOV 


SP.RO 




TRAP 


CiPNTX 




ADD 


$14, SP 


JSR 


PC.NULERR jUSE COMMON ROUTINE TO TERMINATE ERROR 


MESSAGE 


RTS 


PC 




.SBTTL 


SUBROUTINE TO PERFORM "PRINTB OENDEMB" 




WLERR: PRINTB 


OENDEMB | TERMINATE ERROR MESSAGE 






MOV 


4ENDEMB, -(SP) 




MOV 


<?1. CSP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


04, SP 


RTS 


PC 





N6 
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FORMAT SPEC'S FOR ERROR HANDLERS -- "FMT 



SEQ 0078 



3041 










.SBTTL 


FORMAT 


SPEC'S FOR ERROR HANDLERS -- "FMT 




3042 










• 








3043 










, 




FORMAT SPFf'S USFD RY FRROR HANDI FR r > --- 




3044 
3045 


t 








,NLIST 


BEX 






3046 


012114 


045 


116 


045 


ENDEMB 


: .ASCIZ 


/*N*N/ 




304 7 


012121 


045 


116 


000 


NEWLIN 


: .ASCIZ 


/*N/ 




3046 


















3049 


012124 


045 


116 


045 


FMT02: 


.ASCIZ 


/KNKAFAILING REG - *T*ASEL#02/ 




3050 


012161 


045 


116 


045 


FMT02P 


; .ASCIZ 


/*N*A EXPECTED: *03*A ACTUAL: *03tfA XOR : *03/ 




3051 


012245 


045 


116 


045 


FMT4: 


.ASCIZ 


/*N*A THE CONTENTS OF ALL*T#N*T/ 




3052 


012305 


045 


116 


045 


FMT4A: 


.ASCIZ 


/*N*S1*03*S5*03*S5*03*S5*03/ 




3053 


012340 


045 


116 


045 


FMT4B: 


.ASCIZ 


/*N*1/ 




3054 


012345 


045 


116 


045 


FMT4C: 


.ASCIZ 


/*NrfS5rf03rfS5*03#S5rf03*S5tf03/ 




3055 


012400 


045 


116 


045 


F'MTSs 


.ASCIZ 


/*N*A WHEN *03*A LOADED INTO BSEL1/ 




3056 


012443 


045 


116 


045 


FMT5A: 


.ASCIZ 


/*N*A ATTEMPTING "M-LOOP" FUNCTION CODE *02*A (*T*A)/ 




3057 


012530 


045 


101 


040 


FMT07: 


.ASCIZ 


/*A DETECTED IN *T*T*A --/ 




3058 


012562 


045 


116 


045 


FMT06: 


.ASCIZ 


/rfNtfMT/ 




3059 


012571 


045 


116 


045 


FMT06A; .ASCIZ 


/*N#T*03*S2*03*S2*03*S2*03*S2*03*S2#03/ 




3060 


012637 


045 


123 


062 


FMT06E 


h .ASCIZ 


/#S2*03tfS?*03/ 




3061 


012654 


045 


116 


045 


FMT10: 


.ASCIZ 


/*N*A EXPECTED:#08*A ACTUAL: *08*A X0R:*08/ 




3062 


012730 


045 


116 


045 


FMT11: 


.ASCIZ 


/*N*08*08*08*08/ 




3063 


012747 


045 


116 


045 


FMT50J 


\i .ASCIZ 


ZrfNrfA TIMER 1 MODE: rfOHA REGISTERS:/ 




3064 


013021 


045 


116 


045 


FMT50C 


h .ASCIZ 


/*N*S15*AT1CH T1CL T1UH TILL ACR IFR IER/ 




3065 


013102 


045 


116 


045 


FMT50C 


:: .ASCIZ 


/#N*S3rfT¥Sl«03#S3tf03*S3rf03#S3*03/ 




3066 


013142 


045 


123 


063 


FMT50C 


): .ASCIZ 


/*S3«03*S9*03/ 




3067 


013157 


045 


123 


063 


FMT50E 


!; .ASCIZ 


/*S3*03*S3*03/ 




30o8 


013174 


045 


116 


062 


FMT50r 


1: .ASCIZ 


/*N2*S10*ACTUVH 6 T1CL HAVEN'T YET REEN LOADED)/ 




3069 


















3070 
3071 










.SBTTL 


. TLXr STRINGS FOR ERROR HANDLERS -- , •TXT___• , 




3072 


• 


... ....... 


ItX 1 USED fc'Y ERROR HANDLERS - 




3073 


















3074 


















3075 


013253 


102 


123 


105 


TXTl; 


.ASCIZ 


/OShLU 0..LL1 U:LL2 BSFl 3/ 




3076 


013311 


040 


040 


040 


TXT2: 


.ASCI2 


/ BSFl. 4 RSFl.b BSEL6 BSEL.7/ 




3077 


013353 


102 


123 


105 


TXT2A 


.ASCIZ 


/BSLLlft BSElll BSFL 12 R5EL13/ 




3078 


013412 


040 


040 


040 


TXT2B 


.ASCIZ 


/ BSELL4 B5EL15 US?L16 BSEL17/ 




3079 


013454 


040 


102 


131 


TXT3: 


.ASCIZ 


/ BYTE SELECT REG'S ARE-./ 




3080 


013504 


040 


040 


040 


TXT4: 


.ASCIZ 


/ SM.O 5EL2 5EL.4 SELfe/ 




3081 


013544 


040 


040 


040 


TXT4A 


.ASCIZ 


f SFL10 5EL12 SEL14 SEL16/ 




3082 


013605 


102 


000 




TXT5: 


.ASCIZ 


/B/ 




3083 


013607 


040 


123 


105 


TX16; 


.ASCIZ 


/ SEl.tr f REG'S MRh:/ 




3084 


013632 


040 


122 


105 


TXT 7: 


.ASCIZ 


/ REGISTERS ORB ORA DDRB DORA T1CL T1CH TILL T1LH ' 




3085 


013717 


040 


040 


040 


TXT7A 


.ASCIZ 


/ T2CL T^CH SR ACR PCR TFR IER ORA / 




3086 


014004 


040 


105 


130 


TXT8A 


.ASCIZ 


/ EXPECTED: / 




308 7 


014021 


040 


101 


103 


TXT8B 


.ASCIZ 


/ ACTUAL : / 




3008 


014036 


040 


130 


117 


TXT8C 


.ASCIZ 


/ XOR: / 




3089 


014053 


040 


114 


117 


TXT8D 


.ASCIZ 


/ lOADLD: / 




3090 
3091 

3092 


014070 


040 


122 


105 


TXT8E 


.ASCIZ 


/ READ: / 




014105 


116 


117 


120 


TXTitLC 


): .ASCIZ 


/NOP/ 




3093 


014111 


122 


105 


101 


TXTMl 1 


: .ASCIZ 


/READ 1 Bi It / 




3094 


014125 


127 


122 


111 


TXTML* 


>; , ASCIZ 


/WRITE i BYTE/ 




3095 


014142 


116 


120 


122 


TXTML, 


S: .ASCIZ 


/NPR-OUT 256 Bi TtS/ 




3096 


014164 


116 


120 


122 


TXTML* 


»: .ASCIZ 


/NPR^IN 2 r .h B'US 




3097 


014205 


123 


105 


1.24 


TXTMl' 


31 .A5CIZ 


/SET MICROPROCESSOR 5 PC 
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TEXT STRINGS FOR ERROR HANOLERS •- "TXT •' 



B/ 

PAGE 42-1 



5EQ 0079 



3098 014235 125 116 104 TXTML*i .ASCIZ /UNDEFINED/ 

3099 014247 123 105 124 TXTML7? .ASCIZ /SET MAINT INTR 6 CLR INTR DISABLE IN CPU STATUS/ 
3100 

3101 014327 1*6 111 101 TXTVRi .ASCIZ /VIA REGISTER / 

3102 014345 117 122 102 TXTVfcOt .ASCIZ /ORB/ 

3103 014351 117 122 101 TXTVRli .ASCIZ /ORA/ 

3104 014355 104 104 122 TXTVR2; , ASCIZ /DDRB/ 

3105 014362 104 104 122 TXTVR3: .ASCIZ /DORA/ 

3106 014367 124 061 103 TXTVR4: .ASCIZ /TlCL/ 

3107 014374 124 061 103 TXTVR5: .ASCIZ /T1CH/ 

3108 014401 124 061 114 TXTVR6: .ASCIZ /TILL/ 

3109 014406 124 061 114 TXTVR7: .ASCIZ /T1LH/ 

3110 014413 124 062 103 TXTVR8? .ASCIZ /T2CL/ 

3111 014420 124 062 103 TXTVR9? .ASCIZ /T2CH/ 

3112 014425 123 122 000 TXTVRA; .ASCIZ /SR/ 

3113 014430 101 103 \22 TXTVRBj .ASCIZ /ACR/ 

3114 014434 120 103 122 TXTVRC; .ASCIZ /PCR/ 

3115 014440 111 106 122 TXTVROj .ASCIZ /1FR/ 

3116 014444 111 105 122 TXTVREj .ASCIZ /IER/ 

3117 014450 117 122 101 TXTVRFj % ASCIZ /QRA/ 
3118 
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3120 
3121 

3123 

3124 
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SEQ 0080 



3126 
312? 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3136 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3146 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3U2 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
31?i 



014454 

014500 

014515 

014540 

014564 

014611 

014634 

014667 

014733 

015013 

015110 

015170 

015243 

015275 

015355 

015442 

015477 

015532 

015565 

015613 

015644 

015675 

015735 

016016 

016067 

016135 

016203 

016251 

016305 

016341 

016406 

016450 

016536 

016600 

016666 

016730 

01/012 

017054 

017122 

017174 

017240 

017305 

017354 

017417 

017471 



115 
115 
115 
103 
103 
102 
105 
102 
042 
104 
066 
066 
126 
126 
126 
122 
132 
132 
122 
125 
125 
122 
122 
122 
042 
042 
042 
126 
126 
042 
042 
126 
042 
126 
042 
042 
042 
042 
042 
04? 
042 
042 
042 
04? 
Q42 



111 
122 
101 
123 
123 
123 
170 
101 
115 
115 
065 
065 
111 
111 
111 
105 
105 
105 
105 
116 
116 
101 
101 
101 
124 
124 
124 
111 
111 
124 
124 
111 
124 

111 
124 
124 
124 

124 
120 
120 
120 
120 
124 
120 
12Q 



103 
104 
123 
122 
122 
105 
124 
104 
122 
126 
060 
060 
101 
101 
101 
107 
122 
122 
101 
105 
105 
115 
115 
115 
061 
061 
061 
101 
101 
061 
061 
101 
061 
101 
061 
061 
061 
061 
102 
102 
102 
102 
061 
10? 
102 



.SBTTL ERROR MESSAGES -- "EM_.._" 

I 

I ERPOR MESSAGES USED BY ERROR CALL'S 



EM 3 

EM4 

EM5 

EM6 

EM7 

EM8 

EM9 

EM14s 

EM15; 

EM16; 

EM17i 

EM17A: 

EM20; 

EM20Aj 

EM20C; 

EM21i 

EM22: 

EM22Aj 

EM25: 

EM34 5 

EM34B 

EM47A 

EM4 7B 

£M48A 

EM50A 

EM506 

EM50C 

EM500 

EM50E 

EM50F 

EM50G 
EM50H 

EM50I 
SM50J 
EM50K 
EM50L 
EM50M 
EM50N 
EM50S 
EM50U 
EM50V 
EM50W 
EM50X 
EM50Y 
EM5QZ 



, ASCIZ 

.asciz 

.ASCXZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

*EVEN 



/MICRO-DIAG. FAILURE/ 

/MROY TIMEOUT/ 

/MASTER CLR FAILURE/ 

/CSR AODRESS FAILURE/ 

/CSR DATA PAT FAILURE/ 

/BSELO SET-ALL ONES/ 

/EXTERNAL BUS RESET FAILURE/ 

/BAD CSR VALUE(S) AFTER MASTER CLEAR/ 

/"MROY" DIDN'T GO LOW WHILE PROCESSING A COMMANO/ 

/DMV'S RAM LOC. (CORRESPONDING TO BSELO) NOT PROPERLY WRITTEN/ 

/6502 WRITE FUNC . FAILURE AFTER "RUN" BIT IS SET/ 

RUNNING AFTER "RUN" BIT CLEARED/ 

REGISTER ERROR/ 

REGISTER ERROR -- TIMMER NOT RUNNING/ 

REGISTER ERROR - • TIMMER CR0S5 TALK ERROR/ 
PROPERLY ZEROED/ 
EFFECTED ODRA/ 



/6502 STILL 
/VIA STATIC 
/VIA STATIC 
/VIA STATIC 
/REGISTER NOT 
/ZEROING DORS 



/ZEROING DORA EFFECTED DDRB/ 
•READ/WRITE DATA ERROR' 
/UNEXPECTED "A" INTERRUPT/ 
/UNEXPECTED "B" 
/RAM DATA ERROR 

DATA ERROR 

DATA ERROR 

' FLAG NOT 



INTERRUPT/ 
ON INITIAL WRITE/ 

ON RE-READ AFTER TEST AREA FILLED/ 
-- MOVING INVERSIONS TEST/ 
CLEARED BY LOADING T1LM\ 

T1CH\ 
T1CL\ 



/RAM 

/RAM 

V'Tl 

V'Tl" FLAG NOT CLEAREO BY LOADING 

V'Tl" FLAG NOT CLEARED BY READING 

WIA'S T1CL NOT DtCREMENTINGN 

WIA'S T1CH NOT DECREMENUNGN 

V'Tl" FLAG NOT SET ON TIMER 1 

V'Tl" FLAG CLEARED BY READING 

WIA'S TILL IMPROPERLY LOADED 

V'Tl" FLAG CLEARED BY READING 

WIA'S T1LH IMPROPERLY LOADED 

V'Tl" FLAG CLEARED BY READING 

V'Tl" FLAG NOT SET AFTER RE-LOADING 

V'Tl" FLAG CLEARED BY LOADING ULL\ 

V'Tl" FLAG NOT CLEARED BY LOADING UCM\ 

VPB7" W/IN VIA NOT SET ON TIMER 1 TIMEOUT\ 

VPB7" NOT SET AFTER TIMER 1 TIMEOUT\ 

VPB7" NOT DRIVEN LOU BY LOADING UCH\ 

VPB7" UNEXPECTEDLY MOOIFIED BY TIMER i\ 

V'Tl" NOT RESET AFTER BEING CLEARED\ 

VPB7" PREMATURELY SET DURING Ti COUNTDOWNS 

VP&7" NOT SET AFTER SECOND CYCLfcA 



TIMEOUTS 

T1CM\ 

BY WRITING 

T1LL\ 

BY WRITING 

T1LH\ 

T1CH 



T1CL S ADDR 4\ 
T1CH S ADDR 5\ 
6 TIMEOUTS 
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TEXT ADDRESS TABLES FOR ERROR HANDLERS •- "TXT 

3173 .SBTTl. 

3174 , 

3175 t 

3171. ,..-.- 

3177 

317C 01753? 

3179 

3180 017552 014327 

3181 017554 014345 

3182 017574 014415 
3183 
3184 



014105 014111 014125 



014351 014355 
014420 014425 



TXTMLT 
TXTVRT 
.LIST 



SEQ 0061 



TEXT ADDRESS TABLES FOR ERROR HANDLERS - "TXT__T 
- TEXT ADDRESS TABLES USED BY ERROR HANDLERS 



.WORD TXTML0.TXTML1, TXTML2, TXTML3 , TXTML4 , TXTML5 k TXTML6, TXTML7 



.WORD 
.WORD 

.WORD 

BEX 



TXTVR 

TXTVR0,TXTVRl,TXTVR2,TXTVR3>TXTVR4,TXTVR5 l TXrVR6,TXTVR7 

TXTVR8»TXTVR9,TXTVRA l TXTVRB«TXTVRC,TXrVRD,TXTVRE,TXTVRF 



E7 
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SEQ 0082 
LOAD DEVICE PROTECTION TABLE 

3186 .SBTTL LOAD DEVICE PROTECTION TABLE 
318? 

3188 i ///////////////////// '/////////////////////////////////////////////////////// 

3189 ,/ THIS TABLE IDENTIFIES THE LOAD DEVICE TO THE SUPERVISOR, SO THAT IT CAN BE 

3190 i/ PROTECTED FROM TESTING. IF DESIRED. 

3191 ;////////////// ///////////////////////////////////////////////////////// ////// 
3192 

3193 017614 BGNPROT 

017614 LJPROT:: 

3194 017614 111711 .WORD -1 {DON'T CHK CSR ADRS 

3195 017616 177777 ,WORD -1 jDON'T CHK MASSBUS UNIT NO. 

3196 017620 177777 .WORD -1 (DON'T CHK DRIVE NO. 
319? 017622 ENDPROT 



/o 
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3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
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3207 
3208 



3209 
3210 
3211 
3212 



3213 

3214 
3215 



3216 

3217 

3218 



3219 

3220 
3221 



3222 

3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 



017622 
017622 

017622 
017622 
017626 
017632 
017636 
017642 
017644 



017654 
017654 
017660 
017662 
017662 

017664 
017664 
017670 
017672 
017672 

017674 
017674 
017700 
017702 
017702 

017 704 
017704 
017710 
017712 
017712 
017714 

017716 

017722 



017722 
017726 
017726 
017732 
017/36 
017742 



012746 
012746 
012746 
012746 
104437 
062706 



017650 010637 



SEQ 0083 



000340 
170000 
000140 
000003 

000010 

002324 

000040 



.SBTTL INITIALIZE SECTION 

i ;//////////////////// '/////////////////////////////////////////////// 

;/ THE INITIALIZE SECTION CONTAINS THE COOING THAT IS PERFORMED 

j/ AT THE BEGINNING OF THE TEST SEQUENCE ON THE NEXT UNIT, 

l /////////////////////////////////////////////////////////// ////////// 

BGNINIT 

SETVEC 4140,4170000,4340 ;0DT ROM ADDRESS 



L$INIT:s 




i 


;JB REV A-0 


MOV 


4340, -CSP) 


MOV 


4170000, -CSP) 


MOV 


0140, -(SP) 


MOV 


43, (SP) 


TRAP 


CiSVEC 


ADD 


410, SP 



000037 



012700 
104447 

103417 



012700 
104447 

103435 



012700 
104447 

103433 



012700 
104447 

103401 
000436 



000137 020122 



MOV SP.PSTACK jSAVE BASE-LEVEL STACK POINTER 
{SEE IF PROGRAM JUST STARTED, BR IF YES 
READEF 4EF. START 



BCOMPLETE 



STARST 



{SEE IF PROGRAM JUST RESTARTED, BR IF YES 
READEF 4EF. RESTART 



BCOMPLETE 



RESTRT 



000035 



i SEE IF THIS IS A NEW PASS. BR IF YES 
READEF 4EF.NEW 



BCOMPLETE 



NEWST 



000036 



j SEE IF PROGRAM WAS JUST CONTINUED 
READEF 4EF, CONTINUE 



10$ 



MOV 4EF.START,R0 
TRAP CiPEFG 

BCS STARST 



MOV 4EF. RESTART, RO 
TRAP C*REFG 

BCS RESTRT 



MOV 4EF.NEU,R0 

TRAP CJREFG 

BCS NEWST 



MOV 4EF.C0MTINUE.R0 
TRAP C<REFU 



BCS 



10$ 



BCOMPLETE 

BR GETPRM 
10$; JMP CONTIN ,(THIS IS TO FAR AWAY FOR A "BR" INSTRUCTION) 

STARST; j ENTER HERE IF "START" COMMAND ISSUED 

j TEST FOR THE PRESENCE OR ABSENCE OF A CONSOLE TERMINAL, 



005037 002346 



012746 
012746 
012746 
013746 



000000 
020222 
000004 
000003 



CLR CONSOL 
SETVEC 44.4CQNTST.40 



jRESET THE CONSOLE TERMINAL Fl AG 

tSETUP BUS TIMEOUT VECTOR TO TtST FOR A CONSOLE 

MOV 40, (SP^ 
MOV 4C0NTST, ASP) 
MOV 44, (SP) 
MOV 43i-CSP) 
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SEQ 0084 



3333 

3234 



3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 



3251 

3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
32 70 
32 71 
3272 
32/3 
32 74 
32 75 
32 76 
32'7 

3278 
32/9 

3280 

32ai 



017746 
017750 
017754 

017760 
017760 
017764 

017766 



017766 

017772 

017772 
020000 
020004 



020012 
020012 
020016 
020016 
020022 
020024 
020026 
020026 
020030 
020034 

020036 
020044 



020050 
020052 
020056 
020062 
020064 
020066 



020070 
020072 
020076 
020100 

020104 
020106 
020110 
020112 
020114 
020116 

02Qi22 



104437 
062706 
005737 

012700 
104436 



000010 
177564 

000004 



TST Stfl77564 
CLRVEC 04 



TRAP C*SVEC 
ADD 010, SP 
I TRY TO ACCESS THE CONSOLE TERMINAL'S "XCSR" 
l WE SHOULD BE THROUGH WITH THIS BY NOW 

MOV 04, RO 
TRAP CJCVEC 



RESTRT: 



iP.NIER HERE IF "RESTART" COMMAND ISSUED 



005037 002342 



iCLEAR DEVICE MAP 

CLR DcVMAP 



NEWST: 



{ENTER HERE BEFORE EACH TEST 



012737 
005237 
012737 



005237 

013700 
104442 
010001 

103403 
006337 
000766 

053737 
006337 



012100 
012703 
012702 
010022 
005200 
077303 



177777 
002340 
000001 



002322 
002322 

002344 



002344 
002344 



000020 
002352 



0C2322 
002344 



MOV 0-1, LOGDEV {RESE1 LOGICAL DEVICE TO -1 
INC FRSPAS {INCREMENT NO. OF PASSES AFTER LOAD 

MOV 06ITO, DEVPTR iINIT DEVICE MAP BIT POINTER 
j GET UNIBUS ADDRESS, VECTOR, PRIORITY LEVEL, SWITCH PACKS, TEST 
; CONNECTOR INFORMATION FOR THIS LOGICAL DEVICE 
GETPRMj 

LOGDEV j INCREMENT LOGICAL DEVICE NUMBER 

L0GDEV,R1 {GET P-TABLE POINTER INTO Rl 

MOV 
TRAP 
MOV 
|BR IF DEVTCE AVAILABLE 

BCS 

DEVPTR j IF UN-AVAILABLE, SHIFT DEVICE hAP BIT POINTER 

GETPRM , AND SKIP THIS DEVICE 



INC 
GPHARD 



BCOMPLETE 10$ 



ASL 
BR 



LOGDEV, RO 

CiGPHRD 

R0,R1 

10$ 



002342 10$; 



BIS DEVPTR, DEVMAP 
ASL DEVPTR 



{ELSE, SET BIT FOR THIS DEVICE IN DEVICE MAP 
{SHIFT DEVICE MAP BIT POINTER 



"Rl" WAS RETURNED WITH A POINTER TO THE CURRENT "P-TABLE" 



125: 



012100 

010037 002412 

022020 

010037 002414 

012100 
006200 
006200 
006200 
006200 
01QQ37 002416 



MOV (R1)*,R0 

MOV 016., R3 

MOV 0MPCSR.R2 

MOV R0.CR2)* 

INC RO 

SOB R3,12* 



MOV (R1)*,R0 

MOV RO,MPIVEC 

CMP (RO)*.(RO)» 

MOV RO.MPOVEC 

MOV (R1)*,R0 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

MOV RO.MPRIOR 



{GET THE DEVICE CSR ADDRESS 

{WE HAVE TO SETUP THIS MANY ADDRESS POINTERS 

{THIS IS THE ADDRESS OF THE FIRST POINTER 

{SETUP ONE CSR POINTER 

{POINT TO THE NEXT CSR ADDRESS 

;LOOP AS LONG AS THERE ARE MORE TABLE ENTRIES 

{ELSE, FALL THROUGH TO CONTINUE GETTING MORE 

I P-TABLE DATA 

jGET INTERRUPT VECTOR 

{SETUP "A" VECTOR POINTER 

i ADD 4 TO VECTOR TO GET ADDRESS OF "B" VECTOR 

{SETUP "B" VECTOR POINTER 

{GET DMV11 DEVICE PRIORITY 
j RE POSITION IT 



CON TIN; 



j SETUP OUR VARIABLE FOR INT. VECTOR INIT'S 
i ENTER HERE WH£N A "CONTINUE" COMMAND IS ISSUED 



72 
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3282 
3283 



3284 
3285 



3286 
328 7 
3288 
3289 
3290 



3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 



020122 
020122 
020126 
020132 
020136 
020142 
020144 
020150 
020154 
020154 
020160 
020164 
020170 
020174 
020176 
020202 
020206 

020212 
020220 
020220 
020220 



020222 
020230 



013746 
012746 
013746 
012746 
104437 
062706 
005037 

013746 
012746 
013746 
012746 
104437 
062706 
005037 
005037 



012737 
000002 



002416 
005152 
002412 
000003 

000010 
005222 

002416 
005224 
002414 
000003 

000010 
005274 
002330 
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SEQ 0085 



SETVEC aflMPIVEC.MPIHAN.SWMPRIOR 



CLR 
SETVEC 



j SETUP "A" INT, VECTOR 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 



30MPRIOR, -CSP) 
OMPIHAN, -CSP) 
SOMPIVEC,~(SP) 
03, -CSP) 
C*SVEC 
frlO.SP 



012737 000001 002336 



104411 



CLR 
CLR 

MOV 
ENOINIT 



IHILNK j WE DON'T WANT THE HANDLER TO LINK ELSEWHERE 

aOMPOVEC,tfMPOHAN»SOMPRIOR ; SETUP "B" INT, VECTOR 

MOV 30MPRI0R, (SP) 
MOV OMPOHAN, ( SP ) 
MOV SOMPOVEC.-CSP) 
MOV 03, (SP) 
TRAP CJSVEC 
ADD 010. SP 

IHOLNK jWE DON'T WANT THE HANDLER TO LINK ELSEWHERE 

INTWCH jRESET "INTERRUPT WATCH" FLAGS (BOTH "A" C "B") 



Ol.FRSHM jMARK FLAG FOR NEXT TIME THROUGH 
{END OF "INIT" CODE 

L 1001 7: 



TRAP 



CSINIT 



177777 002346 



***** SUBROUTINES USED BY "INIT" CODE ♦♦*♦♦ 

INTERRUPT HANDLER FOR CONSOLE TERMINAL PRESENCE TESTING 
0-l.CQNSOL 



CONTSTj MOV 
RTI 



j INDICATE THAT NO CONSOLE TERMINAL EXISTS! 
,RETURN 



1/ 
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3300 
3501 
350? 
3503 
3304 
3305 
3306 
330? 
3306 
330^ 
3510 
3311 
331? 
3313 
3314 
3315 
3316 



3317 



3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
332/ 
3328 
3329 
3330 
3531 
3332 
3333 



3334 
3335 
3336 



3337 
3338 



35 5^ 
3340 



020252 
020232 
020232 
020232 
020236 
020242 
020246 
020252 
020254 
C20260 
020264 
020270 

020274 
020276 
020300 

020302 
020306 
020312 
020314 
020316 
020320 

020322 
020322 
020326 
020330 
020334 
020336 
020556 
020342 
020344 
020546 
020346 
020546 
020350 
020354 



012746 
012746 
012746 
012746 
104437 
062706 
005037 
012702 
013705 

105725 
006302 
103375 

013703 
012702 
005 723 
006302 
006302 
103374 



012700 
104436 
005737 
001405 

013/00 
104451 
000240 



104461 
0502 3/ 
000002 
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.SBTTL AUTO DROP UNIT SECTION 

i ///////////////////// '/////////////////////////////////////////////////////// 

{/ THE AUTO DROP COOING DETERMINES WHETHER OR NOT THE DEVICE WHOSE P- TABLE 
;/ WAS JUST OBTAINED IS READY FOR TESTING, AND IT IS DROPPED IF NOT READY. 
\ //////////////// ///////////////////////////////////////////////////////////// 

! THIS ALGORITHM IS THE SAME AS TEST I EXCEPT THAT TEST 1 

; WILL JUST REPORT THE FAILURE AND GO ON -- THIS ROUTINE WILL CAUSE THE 

; DEVICE TO BE DROPPED IF A aUS-TIMEOUT OCCURS WHEN ANY OF THE CSR' S 

j ARE ACCESSED WITH EITHER A "TST" OR "TSTB" INSTRUCTION, 
i 

>..*. + + *** + + + + + * + **+ + * + + *+** + **+* + * + + *** + ** + + * + + + ** + + + + * + *********+*+ + + + * + *■**** 



SEQ 0086 



000000 
020350 
000004 
000003 

000010 
002440 
000001 
002352 



00255? 
000001 



000004 
002440 

002322 



It: 



2$: 



BGNAUTO 

SETVEC O4,0AD,HIT,OO 



CLR 


TMPO 


MOV 


01. R2 


MOV 


BSEL0.R3 


TSTB 


(R3)» 


ASL 


R2 


BCC 


1$ 


MOV 


BSEL0.R3 


MOV 


• 1.R2 


TST 


(R3)* 


ASL 


R2 


ASL 


R? 


BCC 


2*. 



CLRVEC 04 



002440 





TST 
BEU 
DODU 


TMPO 
AO . OK 
LOGDEV 


AD . OK : 


NOP 
ENDAUTO 




AD. HIT* 


BIS 
RTI 


R J, TMPO 



00 . - ( SP ) 
OAD.HIT. -(SP) 
04. -CSP) 
03, -CSP) 
CiSVEC 
O10.SP 



LIAUTQ: : 

iSETUP INVALID-ADDRESS TRAP VECTOR 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

^INITIALIZE TRAP FLAG REGISTER 

:FLAG BIT 

jINIT ADDRESS POINTER 

jACCESS THE CSR'S BY BYTES. 



{RE- INI T ADDRESS POINTER 

jRE INIT FLAG BIT 

l ACCESS THE CSR'S BY WORDS. 



jRESTORE THE VECTOR TO OS 

MOV 04. RO 
TRAP CSCVEC 

iDID WE GET HIT WITH AN INVALID ADDRESS TRAP? 

iNO. EXIT TEST 

jYES, DROP THIS LOGICAL DEV, 

MOV logdev.ro 

TRAP C*DQDU 

j(FOR PATCHING IN A HALT IF NECESSARY) 



L10020: 



TRAP 



;F LAG THE HIT IK Ut GE T IT! 

1 RE TURN 



CJAUTO 



J 7 



'4 
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3542 

3343 
3344 
334S 
3346 
3347 
3348 
3349 
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SBTTL CLEANUP CODING SECTION 

///////////////////// '///////////////////// /////////////////// /////// 
/ THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
/ AT THE END OF THE TEST SEQUENCE ON A PARTICULAR UNIT, 
///////////////////////////////////////////////////////////////////// 



SEQ 0087 



3350 
3351 
3352 



020356 
020356 
02C356 
020356 
020362 
020364 
020364 
020370 
020372 
020372 
020372 



013700 
104436 

013700 
104436 



104412 



002412 



002414 



BGNCl.N 




LCU.EAN: : 




CLRVEC 


S4MPIVEC 


{RETURN VECTORS TO SUPERVISOR 








MOV 


a^MPlVEC.RO 






TRAP 


CJCVEC 


CLRVEC 


SWMPQVEC 










MOV 


atfMPOVEC.RO 






TRAP 


C*CVFC 


tNDCLN 




LIQ021; 








TRAP 


C*CLEAN 



CNOMAAO 0MV11 MCTRL DIAG 01 
DROP UNIT SECTION 



3554 
3355 
3356 
3357 
3353 
3359 
3360 
3361 
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SEQ 0088 



.SBTTL DROP UNIT SECTION 

i//// ////// /////////// '/////////////////////////////////////////////////////// 

%/ THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

i/ TO NO LONGER BE TESTED. 

j ////////////////////////////////////////////////////////////////////////// 



3362 
3363 

3364 



020374 
020374 

020374 
020374 

020376 
020376 
020376 



104433 



104453 



BGNOU 

j ISSUE UNIBUS RESET TO CLEAN UP 
BRESET 

ENDDU 



LSOU: : 



L 10022: 



TRAP 



TRAP 



C$RESET 

C$DU 



L7 



76 



CNDMAAO DMV11 MCTRL DIAG #1 
ADD UNIT SECTION 



3366 
336 7 
3368 

3369 
3370 
3371 
337<? 
3373 
3374 
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.SBTTL ADD UNIT SECTION 

$/ THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

j/ TO BE (A) TESTED FOR THE FIRST TIME, OR CB) RESUMED IN TESTING. IF 

j/ "EF.AUNIT" IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 

j //////////////////////////////////////////////////////////////////// 



SEQ 0089 



3375 



020400 
020400 
020400 
020400 
020400 



BGNAU 
ENDAU 



104452 



L$AU: : 
L10023; 



TRAP 



C$AU 



CNOMAAO OMV11 MCTRL DIAG #1 
TEST 1 -- OMV-11 AVAILABILITY 
3393 





020402 






3394 


020402 


005037 


020546 


3395 


020406 


012702 


000001 


3396 


020412 


013703 


002352 


3397 


020416 








020416 


012746 


000000 




020422 


012746 


020540 




020426 


012746 


000004 




020432 


012746 


000003 




020436 


104437 






020440 


062706 


000010 


3398 








3399 


020444 


105723 




3400 


020446 


006302 




3401 


020450 


103375 




3402 








3403 


020452 


013 737 


020546 


3404 


020460 


005037 


020546 


3405 


020464 


012702 


000001 


3406 


020470 


013703 


002352 


3407 








3408 


0204 74 


005723 




3409 


020476 


006302 




3410 


020500 


006302 




3411 


020502 


103374 




3412 








3413 


020504 








020504 


012 700 


000004 




020510 


104436 




3414 


020512 


005737 


020546 


3415 


020516 


001003 




3416 


020520 


005737 


QdQ55Q 


3417 


020524 


001404 




34ltf 


020526 
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SEQ 0090 



020550 



.SB T TL TEST 1 -- DMV-11 AVAILABILITY 

t ****<S*** **** + ******« ************ ******************************************** 

* 

* TEST 1 -- DMV-11 AVAILABILITY 

* 

* EACH NORMALLY USED CSR IS ACCESSED WITH A "TST" OR "TSTB" INSTRUCTION AND IF 

* A BUS TIMEOUT OCCURS (INTERRUPT Q VECTOR ADDR 4) A FLAG WILL BE SET SHOWING 

* WHICH CSR ADDR AND INSTRUCTION FAILED. "Tl.HSW" REFLECTS "TST" INSTRUCTIONS 

* AND "Tl.HSB" REFLECTS "TSTB" INSTRUCTIONS. 

* 

EXAMPLES: 



* 
* 
♦ 

* 

* 

* 



IF "TSTB SBSEL1" FAILS, BIT * 1 OF -Tl.HSB" WILL BE SET. 
IF "TST QSEL4" FAILS, BIT 4 OF "Tl.HSW" WILL BE SET 
(NOTE: ONLY EVEN BITS IN "Tl.HSW" CAN BE SET), 

THE FLAG WORDS ARE OUTPUT IN BINARY AS "EXTENDED ERROR INFORMATION". 

*** ** ***************** ***** ******************* *+*****************+****+*+++ 

BGNTST 

! 1: : 



1$ 



2$ 



CLR 


Tl.HSW 


{INITIALIZE TRAP FLAG REGISTER 




MOV 


41. R2 


{FLAG BIT FOR BYTE ACCESSED CSR 0. 




MOV 


BSEL0.R3 


jINIT ADDRESS POINTER 




SETVEC 


#4,m 4 HlT # <K) 


{SETUP INVALID- ADDRESS TRAP VECTOR 








MOV 


*0,~(SP) 






MOV 


0T1.HIT. CSP) 






MOV 


J4.-CSP) 






MOV 


#3. -CSP) 






TRAP 


CJSVEC 






ADD 


410, SP 


TSTB 


(R3) + 


{ACCESS THE CSR' S BY BYTES. 




ASL 


R2 






BCC 


1$ 






MOV 


Tl.HSW, Tl.HSB 


{MOVE BYTE INTERRUPT FLAG TO PROPER 


LOCATION. 


CLR 


Tl.HSW 


i INITIALIZE TRAP FLAG REGISTER 




MOV 


01, R2 


{FLAG BIT FOR WORD ACCESSED CSR 0, 




MOV 


BSEL0.R3 


{RE-INIT ADDRESS POINTER 




TST 


(R3)> 


{ACCESS THE CSR' S BY WORDS. 




ASL 


R2 






ASL 


H2 






BCC 


2$ 







CLRVEC 04 



3$ 



Tsr 


Tl.HSW 


BNF. 


3$ 


TST 


Tl.HSB 


BEQ 


T 1 . OK 


GEDF 


U.EHD.TX.tMl 



{RESTORE THE VECTOR TO DS 

MOV 
FRAP 

{DID WE GET AN INVALID ADDRESS TRAP? 

i rE J# REPORT FAILURE 



l>fcS, REPORT THE ERROR 
\ "DEVICE FATAL" ERROR « 9 



44.R0 
CJCVEC 



N7 



8 
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SEQ 0091 



020526 


104455 










020530 


000011 










020532 


020670 










020534 


020552 










3419 020536 






Tl. 


OK: 


ENDTST 


020536 












020536 


104401 










3420 












3421 020540 


050237 


020546 


n. 


HIT: 


BIS 


3422 020544 


000002 








RTI 


3423 












3424 020546 


000000 




Tl. 


HSW: 


. WORD 


3425 












3426 












3427 020550 


000000 




Tl 


HSB: 


.WORD 


342tt 












3429 












3430 020552 










BGNNSG 


020552 












3431 020552 










PRINTS 


020552 


013746 


002352 








020556 


012746 


020717 








020562 


012746 


000002 








020566 


010600 










020570 


104414 










020572 


062706 


000006 








3432 020576 










PRINTX 


020576 


012746 


021001 








020602 


012746 


000001 








020606 


010600 










020610 


104415 










020612 


062706 


000004 








3433 020616 










PRINTX 


020616 


012746 


021034 








020622 


012/46 


000001 








020626 


010600 










020630 


104415 










020632 


062706 


000004 








3434 020636 










PRINTX 


020636 


013746 


C20550 








020642 


013746 


020546 








020646 


012746 


021106 








020652 


012746 


000003 








020656 


010600 










020660 


104415 










020^ :? 


062706 


000010 








3435 020666 










ENDMSG 


020666 












020666 


104423 










3436 












3437 






.NLIS'l 


BEX 


3438 0^0670 


101 


126 


lOi Tl 


.EHD: 


.asc::z 


3439 020717 


045 


116 


045 n 


.1: 


.ASCIZ 


3440 021001 


045 


116 


062 Tl 


.2: 


.ASCIZ 


344 1 021034 


C-5 


llo 


045 Tl 


3; 


.ASCI? 


3442 021106 


045 


116 


062 T 1 


.4: 


.ASCIZ 


3443 






.LIST 


tf EX 



L 10024 



TRAP 
.WORD 
.WORD 
.WORD 



TRAP 



CSERDF 

9 

Tl.FHD 

T1.EM1 



C$ETST 



R2.T1.HSW 





T1.EM1 
4T1.1.MPCSR 



;FLAG THE HIT IF WE GET IT! 
j RETURN 

; INVALID ADDRESS TRAP FLAG WORD: 

{BITS SET INDICATE TRAPS ON WORD ACCESSES 

tCBIT SET - CSR THAT FAILED) 

j INVALID ADDRESS TRAP FLAG WORD: 

jBITS SET INDICATE TRAPS ON BYTE ACCESSES 

{(BIT SET * CSR THAT FAILED) 



0T1.2 



0T1.3 



T1.EN1: : 
IDENTIFY ERROR AND ON WHAT DEVICE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
IF REQUESTED, ALSO INDICATE MISSES 

MOV 
MOV 
MOV 
TRAP 
ADD 



0T1.4,T1.HSW,T1.HSB 



L 10025: 



MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



TRAP 



MPCSR, -CSP) 
0T1.1, (SP) 
02,-CSP) 
SP,RO 
CJPNTB 
06, SP 
(TRAPS) 

0T1.2. (SP) 
01, (SP) 
SP.RO 
C5PNTX 
04, SP 

Ml. 3, (SP) 
01, -(SP) 
SP.RO 
C$PNTX 
04. 3P 



- ( SP ) 
-(SP) 



Tl.HSB 
Tl.HSW 
0T1.4, (SP) 
03, (SP) 

SP . RO 
CIPN1X 
010, SP 



C4MSU 



AVAILABILITY TEST (01)' 

#N^ADMV-U S *0*A NOT RESPONDING TO CSR ACCESSING 1 

*N2*S2UASEL 0*S11#ABSEL it' 

*N*Si5**A"T. C A a i*i 4 2 * ECCBA9&76543210* 

*N2*A TRAP FLAGSt1<Bi6s4S2J*al6 , 



B8 

CNOMAAO DMVll MCTRL DIAG *1 MACRO m?0O 22 -FED -84 15{£2 PAGE Si -a 
TEST 1 - OMV-ll AVAILABILITY 

3444 ,eVEN 



SEQ 0093 



C8 
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TEST 2 -- MASTER CLEAR, RUN MICRODIAGNOSTICS 



SEQ 0093 



3461 



5462 
546? 
5464 
3465 
3466 
34b 7 

3468 
3469 
34 70 
3471 
3472 
3475 
34 74 
3475 
34 76 
3477 
34 78 
34 79 
3480 
3481 
3482 
3485 
3484 
3*85 
3486 
5487 
3488 
3489 
3490 



021146 



021146 
021152 
021154 
021154 
021156 



021160 
021162 
021164 
021170 
021174 
021202 
021204 
021206 
021210 

02121? 

021214 

021216 
021224 
021250 
021256 
021240 
021244 

021244 
021246 
021250 
021252 



004757 
103002 

104460 
000456 



005001 
005002 
016205 
062702 
126271 
001005 
005202 
005201 
005201 

077510 

000417 

117157 
004 757 
116257 
006201 
010157 



104455 
000012 
014667 
005304 



SBTTL TEST 2 -- MASTER CLEAR, RUN MICRODIAGNOST TCS 



4*****6** 



TEST 2 -- MASTER CLEAR, RUN HICROCIACUCSTTCS 



A MASTER CLEAR IS ISSUED TO THE DMV-11, ANO THE PROGRAM ALLOWS SUFFICIENT 
TIME FOR THE MICROOIAGNOSTICS TO BE PERFORMED, THESE MICRODIAGNOSTICS RESIDE 
IN 6502 PROGRAM MEMORY, ANO THOROUGHLY VERIFY THE OPERATION OF THE 6502 
MICROPROCESSOR CHIP. THEN, THEY CHECK OUT THE DATA RAM, THE 6502' S ACCESS TO 
THE CSR'S, ANO PERFORM A SIMPLE MESSAGE TEST USING THE 6522 CHIP ANO THE 
USYRT, WITH INTERNAL LOOPBACK. 

NEXT, THE LSI -11 PROGRAM READS THE THE CSR'S (SEL0-SEL6) ANO CHECKS THEM FOR 
THEIR EXPECTED INITIALIZED STATES. IF AN ERROR HAS OCCURRED IN THE. MICRO- 
DIAGNOSTICS THE NUMBER OF THE FAILING TEST WILL BE FOUNO IN SEL4, ANO RUN 
(BIT 7) WILL NOT BE SET IN BSEL1. 

.**********t***************************************«******************««**** 



BGNTST 



T2{ 



ISSUE A MASTER CLEAR, AND DELAY FOR MICRODIAGNOSTICS TO COMPLETE By CALLING 
SUBROUTINE MASCLR. 



005614 



JSR 

BCC 
ERROR 

BR 



PC, MASCLR 
8» 



241 



» -ATTEMPT- TO RUN THE 
i IF NO ERROR, PROCEED 
lELSE, REPORT IT ANO 



i 



EXIT THIS TEST 



MICRO-DIAGNOSTIC 



TRAP 



C$ERROR 



005040 
000002 
003040 002352 



8$; 



2$: 



i FIRST, INITIALIZE INDEX REGISTERS 



002552 002512 
0044 34 

003040 002310 
002334 



1*1 



CLR 

CLR 

MOV 

AOD 

CMPB 

BNE 

INC 

INC 

INC 

SOB 

BR 

MOVB 

JSR 

MOVB 

ASR 

MOV 

GEO*' 



Rl iRl IS THE INDEX OF THE BYTE SELECT TABLE 

R2 jR2 IS THE INDEX OF THE RESULTS TABLE 

RESFMCCR2),R3 jGET THE NUMBER OF PATTERNS IN RESULTS TABLE 

*2,R2 jMOVE POINTER TO NEXT BYTE 
RESFMC(R2).8BSEL(Rl) iCOMPARE EXPECTED RESULTS WITH CSR'S, 

1) i A MISMATCH IS A DEVICE FATAL ERROR 

R2 i INCREMENT TABLE POINTER 

Rl i INCREMENT POINTER 

Rl i BY 2 (WORD INCREMENT) 



R5.2* 

24$ 



I CONTINUE TO LOOP THROUGH TABLE 

I TEST COMPLETE WITH NO ERRORS, GO END TEST. 



«BSEL(R1),BDATA |0 GET DATA BlTE THAT FAILED 
PC.GETBSR iGET THE BSEL REGISTERS FCR DUMPING 

RESFMC(R2),GDATA \0 GET EXPECTED RESULT FROM TABLE 
Rl jCONVERT WORD OFFSET TO B)TE CSR 

Rt.REGNUM 

EM14.ERR2 iDEVXCE FATAL ERROR, REPORT IT 

1 "DEVICE FATAL" ERROR 



ANO END TEST 

10 

TRAP CIFW 

.WORD 10 
,UORO EM14 

*WORU ERR J 



D8 



CNOMAAO DMVU MCTRl. OlAG OX MACRO M1200 22 -FEB -84 15;22 PAGE 52-1 

TEST ?. - MASTER CLEAR, RUN MICRODIAGNOSTICS 

24$} ENOTST 

104401 



SEG 0094 



3401 021254 
021254 
021254 



L10026; 



TRAP 



CtEVST 



CNDMAAO DMVU MCTRL DIAG 01 
TEST 3 • • CSR ADDRESSING 
3503 



E8 
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3504 
3505 
3506 
3507 
350e 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 



021256 



021322 
021324 



005001 

012703 000020 



SEQ 0095 



.SBTTL TEST 3 - - CSR ADDRESSING 

•»********+********** ******************************************************** 

* TEST 3 -- CSR ADDRESSING 

* 

* FIRST, HALT THE 6502 UP BY CLEARING ALL CSRS, THEN, WRITE A DIFFERENT WORD 

* OF DATA PATTERN A INTO EACH OF BSELO-17, AND AFTE1 EACH WRITE, READ AND 

* COMPARE ALL REGS TO EXPECTED VALUES. 

* 

* DATA PATTERN A « 001. 002, 004, 010, 020. 040, 100, 200, 052, 300, 140, 

* 060, 030, 014, 006, 003 

* 

- - *************************************************************************** 



BGNTST 



T3r: 



******** DETAILED TEST DESCRIPTION ******** 
THIS TEST PROCEEDS AS FOLLOWS: 

(1) CLEAR ALL CSRS ANO VERIFY SAME (CLEARING BSEL01 HALTS 6502) 

C2) WRITE 01 INTO BSELOj VERIFY BSEL0-Ol,ALL OTHERS-0 

(3) WRITE 02 INTO BSELli VERIFY BSELO-01 .BSEL1 -02, ALL OTHERS-0. 

(4) WRITE 04 INTO BSEL2t VERIFY BSELO-01 ,8SEL1-02,BSEL2«04 , ALL OTHERS-0 

(5) -> (17) CONTINUE TO INCREMENTALLY WRITE DATA- PATTERN-A INTO THE BSR'S, 

CHECKING ALL BSR'S AFTER EACH WRITE, UNTIL BSR'S COMPLETELY 
FILLED WITH DATA-PATTERN-A. 
NOTE? IF AN ERROR OCCURS, THE FIRST BAD BSR NUMBER AND GOOD/BAD VALUES ARE 
GIVEN, FOLLOWED BY A COMPLETE BSR DUMP. 









i CLEAR DMV CSRS AND RESULTS 


TABLE 


021256 


012703 


000010 




MOV 


010, R3 


|GET * OF CSRS 


021262 


013701 


002352 




MOV 


»*6SEL»R1 


t GL: 1ST CSR ADDRESS 


021266 


012702 


003062 




MOV 


0RESFT3.R2 


lGE r 1ST RESULTS TABLE ADDRESS 


021272 


005021 




It: 


CLR 


(Rl)> 


t CLEAR CSR, BUMP POINTER 


021274 


005022 






CLR 


(R2)> 


jCLEAR RESULTS TABLE LOC . . BUMP POINTER 


021276 


005022 






CLR 


(R2)* 


i AND DO AGAIN 


021300 


077304 






SOB 


R3,l$ 


{LOOP UNTIL ALL DONE 








i NOW 


VERIFY 


CSRS ARE ALL ZEROED 


021302 


0050U2 






CLR 


R2 


I CLEAR BSR ADDRESS INDEX 


021304 


012703 


000020 




MOV 


0CSREGS.R3 


iGET OF CSRS 


021310 


105772 


002352 


2$: 


TSTB 


8BSEUR2) 


llS THIS CSR-0 ? 


021314 


001035 






BNE 


5$ 


j IF NO: GO REPORT ERROR 


021316 


005722 






TST 


<R2)» 


j YES: BUMP INDEX 


021320 


077305 






SOB 


R3,2$ 


iDO UNTIL ALL BSRS CHECKED 



l INITIALIZE 
CLR Rl 

MOV 



OCSREG5.R3 



INOEX REGISTERS 

I INITIALIZE 
tGET NUM8CR 



PATTERN INDEX 
OF CSR'S 



REGISTER 



33 
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SEQ 0096 



3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
355? 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 



021330 
021334 



021336 
021340 
021342 



021344 
021352 

021360 
021362 
021364 

021370 
021376 
021400 
021402 



021404 
021406 



021410 
021416 
021424 
021430 
021432 
021436 



021436 
021440 
021442 
021444 
3564 021446 
021446 
021446 



016104 
005721 



010102 
005742 
006302 



116162 
116172 

005201 
005002 
012703 

126272 
001004 
005722 
077306 



077424 
000417 



116237 
117237 
004737 
006202 
010237 



104455 
000013 
014540 
005304 



104401 



002504 



j THE FIRST WORD OF THE DATA TABLE CONTAINS THE NUMBER OF PATTERNS IN 

I THE TABLE: 

MOV PATACRD.R4 {INITIALIZE NUMBER OF PATTERNS COUNT 

1ST CRD* iMOVE TABLE POINTER 

I PUT NEXT PATTERN OF DATA INTO NEXT REGISTER AND TEST AREA: 

} 



i 
3$ 



CALCULATE INDEX INTO DATA AREA AND TO REGISTER 



MOV 
TST 
ASL 



R1.R2 
-CR2) 
R2 



{GET INDEX INTO TEST DATA AREA 
i IT'S ONE WORD TOO LARGE 
{CONVERT FROM BYTE TO UORD IUOEX 



j NOW, SETUP THE EXPF.CTED RESULTS AREA AND LOAD THE SELECT REGISTER 



00* ,r >04 
002504 



000020 
003062 



003062 
002352 



002352 4$ 



003062 
002352 
004434 

002334 



002310 
002312 



5$: 



24* t 



MOVB 
MOVB 

INC 
CLR 
MOV 

CMPB 
BNE 
TST 
SOB 



SOB 
BR 



PATACRD.RESFT3CR2) {UPDATE THE EXPECTED RESULTS TABLE 
PATA(Rl),aeSELCR2) {PUT PATTERN INTO THE CSR 



Rl 
R2 
0CSREGS.R3 



{BUMP DATA POINTER FOR NEXT TIME AROUND 
{INITIALI7E TABLE INOEX 
{INITIALIZE NUhBER OF REGISTERS 



RESFT3(R2),w65tL(R2) {COMPARE CSR WITH RESULTS TABLE 
5$ {A MISMATCH IS A DEVICE FATAL ERROR 

(R2)* >BUMP TABLE POINTER BY 2 (WORD INCREMENT) 

R3,4$ {CONTINUE TO READ £ MATCH ALL REGISTERS BEFORE 

{LOADING THE NEXT PATTERN INTO NEXT REGISTER 



R4,3$ 
24$ 



{LOOP UNTIL ALL PATTERNS ARE TESTED 
{TEST COMPLETE **<< NO ERRORS >>** 



{--PREPARE THE FAILURE MESSAGE 



MOVB 

MOVB 

JSR 

ASR 

MGV 

GEDF 



ENUTST 



RESFT3CR2).GDATA ;0 GET THE EXPECTED RESULT FROM TABLE 

aeSELCR2) t BDATA «0 GET THE FAILED BYTE 

PC.GETBSR {GET THE BSEL REGISTERS FOR DUMPING 

R2 {CONVERT WORD OFFSET TO BYTE CSR ADDRESS 

R2»REGNUM {GET THE REGISTER THAT FAILED 

EM6.ERR2 iERROR +*♦♦ DEVICF FATAL ♦♦** 

j "DEVICE FATAL" ERROR 11 

TRAP CJERDF 
.WORD 11 
.WORD EH6 
.WORD ERR2 



L 100^7; 



TRAP 



C$ETST 



CNDMAAO 
TEST 4 
3598 
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SEQ 0097 



3599 
3600 
3601 
3602 
3603 
3604 

3605 
3606 
3607 
3608 
3609 
3610 
3611 
361? 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
362? 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 



021450 
021450 



021454 
02145b 
02145b 
021460 



021462 
021464 
021466 
021472 

021476 

021504 



021512 
021516 



004737 003762 



103002 



104460 
000453 



005001 
005002 
016103 
062702 

113777 

116137 



022702 
001003 



002526 
000002 

000101 160650 

002526 002310 



000002 



021520 142737 000300 002310 



021526 
021534 



113772 

123772 



002310 
002310 



002352 
002352 



.SBTTL TEST 4 - - CSR REGISTERS DATA READ/WRITE 

* TEST 4 -- CSR REGISTERS DATA READ/WRITE 
* 

* WRITE, READ, AND COMPARE EACH BYTE OF DATA PATTFRN B INTO REGISTER BSELO. 

* THEN, REPEAT THIS USING EACH OF THE REMAINING CSR'S, BSELl -BSEL17. WHEN BSELl 

* IS BEING TESTFD, THE PROGRAM ALWAYS SE l S BIT 7 IN THE DATA PATTERN SO THAT 

* RUN WILL NOT BE CLEARED, AND IT ALWAYS CLEARS BIT6 SO THAT MCLR WILL NOT BE 

* SET. 
* 

* DATA PATTERN B - 125, 252, 000. 377, 001, 002. 004, 010, 020, 040, 100, 

* 200, 376, 375, 373, 367, 357, 337, 277, 177, 000 



T4;; 
jCALL MAINTENANCE READY INITIALIZATION, IF 
jMSTCLR SHOULD FAIL BECAUSE THE MRDY FLAG DOES 
jNOT BECOME SET, A DEVICE FATAL ERROR WILL BE 
{REPORTED, AND MSTCLR WILL SET THE "C" BIT 
jIF NO ERROR, PROCEED 
j ELSE, REPORT IT AND 

TRAP C$ERROR 
I EXIT THIS TEST 



BGNTS1 




JSR 


PC, MSTCLR 


RCC 
ERROR 


8$ 



BR 



24$ 



NOTE - THE FIRST BYTE LOCATION OF THE PATTERN B TABLE, USED IN THIS TEST, 
CONTAINS THE NUMBER OF TEST PATTERNS OF PATTERN B TABLE, NOT A 
TEST PATTERN, 



l FIRST, INITIALIZE INDEX AND COUNT REGISTERS 
8*: 



1$ 



CLR Rl 

CLR R2 

MOV PATB(R1)»R3 

ADD 02, R2 

MOVB 101.8BSEL1 

MOVB PATBCRD.GDATA 



l«l IS THE 'PATB' INDEX REGISTER 

jR2 IS THE CSP INrEX REGISTER 

iR3 CONTAINS I HE NUMBER OF BYTES IN PATB 

jMOVE POINTER TO FIRST BYTE OF DATA 

jSTOP THE MICRO-PROCESSOR!!! 

jGET THE PATB DATA BYTE. WE ARE TO USE 



{ DON'T GET CAUGHT BY THE NEXT INSTRUCTION! "R2" IS AN OFFSET INTO A 
j WORD TABLE WHICH CONTAINS THE ADDRESSES OF THE CSR'S, THEREFORE, WHEN 
; R2 ■ -- IT POINTS TO BSELO' S ADDRESS, AND WHEN R2 - 2 • - IT POINTS TU 
j BSELl* S ADDRESS. 



2$ 



CMP 
BNE 



BICB 

MOVB 
CMPB 



02, R2 
2$ 



j IS "BSELl" BEING TESTED? 

I IF YES, ALTER PATB DATA SO THAT BIT 7 IS 
lALWAYS SET, AND BITb IS ALWAYS RESET. 
lEl.SE, USE PATB DATA AS IS. 



*RUN!MCLR, JDATA jFORCE PATTERN TO RESET BITS 7 £ 6 



GDATA,a6SLL0(P2) 
GDATA.QBSEL0CR2) 



iPUT PATB DATA INTO REGISTER BEING TESTED 
, COMPARE PATTERN JUST WRITTEN 



95 
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SEQ 0098 



3636 
365 7 
5658 
3639 
3640 
3641 
3642 
3643 



021542 001414 



3644 
3645 
3b46 
364? 
3648 
3649 
3650 
3651 
365c 3 
3653 
3654 



021544 
021550 
021556 
021562 

021562 
021564 
021566 
021570 
021572 

021574 
021576 

021600 

021602 
021606 

021610 

021610 
021610 
021610 



BEQ 



5$ 



j TEST PASSES IF A MATCH, ELSE, DEVICE FATAL ERROR 



j - PREPARE FOR THE FAILURE PRINTOUT- 



010237 
117237 
004737 



104455 
000014 
014564 
005304 
000406 

005201 
077336 

005722 
020227 
101336 



104401 



002334 
002352 
004434 



002312 



MOV 
MOVB 
JSR 
GEDF 



5$: 



000040 



24$: 



BR 

INC 
SOB 

TST 
CMP 
BHI 



ENDTST 



R2.REGNUM jGET THE REGISTER THAT FAILED 

SBSEL0(R2),BDATA jSCORE THE BAD DATA 

PC.GETBSR jGET THE BSEL REGISTERS FOR DUMPING 

EM7.ERR2 jREPORT ERROR AND EXIT THE TEST 

I "DEVICE FATAL" ERROR 12 

TRAP 
.WORD 
.WORD 
.WORD 

24$ 



CIERDF 
12 
EM7 
ERR2 



Rl 
R3.ll 

(R2)* 

R2,<KCSRtGS*2> 

1$ 



,M0VE TABLE POINTER 

jDECREMENT NUMBER OF PATTERNS LEFT. IF ^ER0,EXIT 

jELSE, CONTINUE TO PATTERN TEST REGISTER 

{INCREMENT THE REGISTER INDEX BY 2 

iCOMPARE REGISTER INDEX TO NUMBER OF CSR'S 

I IF R2 > 17, END THE TEST 



L 10030: 



TRAP 



C$ETST 
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.SBTTL TEST 



- BASIC MASTER CLEAR 



SEQ 0099 



366 3 
3664 
3665 
3666 
366 7 
3668 
3669 
3670 

36 '1 
3< 2 
3b/ 3 
3674 
3675 
3676 
36 7 7 
3678 
3679 
3680 
3681 
368? 
3683 
3684 
3685 

3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 



021612 



021612 004737 003614 



021616 
021620 
021620 
021622 

021624 
021632 
021640 



3698 
3699 



021646 
021650 
021650 
021652 

021654 

021662 

021664 

021672 
021700 
C21704 
021710 
021716 

021716 

021720 
021722 
021 /24 
02W26 
021732 



103002 

104460 
00044 1 

112777 
122777 
001011 



103002 

104460 
000425 

122777 

001421 

112737 
117737 
004 7 3 / 
1050 77 
012737 



104455 
000015 

014515 
00M04 
105077 



000356 
000356 



021642 004737 003614 



000356 
160454 
004434 
160442 
000000 



160520 
160512 



it***,*************.****,**.** >*, + + *+ :,* + + + + + 4, + + 4. + * + + 4. + ± + + + *. + + A + + +.+, + + + + + +***4 i + *4 t mt 

!♦ 

i* TEST 5 -- BASIC MASTER CLEAR 

{♦ 

j* PERFORM INITIAL MASTER CLEAR, WRITE 356 INTO BSELO AND READ AND CHECK IT. 

j* THEN, ISSUE A MASTER CLEAR AND READ AND CHECK BSELO FOR 000. 

\ + 

j BGNTST 

T5: : 
; ISSUE A MASTER CLEAR, AND DELAY FOR MICRO-DIAGNOSTICS TO COMPLETE BY CALLING 
; SUBROUTINE MASCl R. 

I -ATTEMPT- TO RUN THE MICRO -DIAGNOSTIC 
jFAILURES WILL BE REPORTED BY THE SUBROUTINE 
I AS DEVICE FATAL AND THE "C'» BIT WILL BE SET 
» IF NO ERROR, PROCEED 
{ELSE. REPORT IT AND 

TRAP CJERROR 
EXIT THIS TEST 



8$ 



JSR 


PCMASCLR 


BCC 

ERROR 


8$ 


BR 


24* 


MOVB 
CMPB 
BNE 


GJSt.QBSELO 

Oo56,Q8SELO 
2$ 



t 

j* SET BSEL TO ALMOST ALL ONES 

10 COMPARE 

jA MISMATCH INDICATES A DEVICE FATAL ERROR 



l ISSUE A MASTER CLEAR, AND DELAY FOR MICRO-DIAGNOSTICS TO COMPLETE BY CALLING 
: SUBROUTINE MASCLR, 



JSR 



PC.MASCLR 



000000 1604 70 9$ j 



002310 2$: 
002312 



002334 



BCC 9$ 
ERROR 

BR 24$ 

CMPB OOOCaBSELO 

BEQ 24$ 

j - PREPARE FOR THE 



j ATTEMPT- TO RUN THE MICRO DIAGNOSTIC 

t FAILURES WILL BE REPORTED BY THE SUBROUTINE 

j AS DEVICE FATAL ANO THE "C" BIT WILL BE SET 

» IF NO ERROR, PROCEEO 

j ELSE, REPORT IT AND 

TRAP C$ERROR 
j EXIT THIS TEST 



SHOULD BE ZEROED DURING 



MOVB 
MOVB 

JSR 
CLRB 
MOV 
GEDF 



035O.GDATA 

UBSELO.BDAT 

PC.GETBSR 

aesEio 

OO.REGNUM 
EM5.ERR2 



; THIS REGISTER 
j INITIALISATION 
I IF ZERO. ♦♦* TEST 

FAILURE PRINTOUT - 

I* ALMOST ALL ONES IS EXPECTED DATA 

A j SOME THING OTHfcR THAN ALL ONES UAS FOUND. 

,GET THE BSEL REGISTERS FOR DUMPING 
jOISABLE INTERRUPTS AS A PRECAUTIONARY 
{GET THE REGISTER THAT FAILED 
j REPORT DEVICE FATAL ERROR 
j "DEVICE FATAL" ERROR o 



PASSES .*♦, ELSE REPORT ERROR 



• CORE IT 



MEASURE 



160420 



24$ 



CI RB 
F.NDTST 



WBSEl.O 



j DISABLE INTERRUPTS AS A 



13 

TRAP 
.WORD 
. WORD 
.WORD 
PRECAUTIONARY 



CJFRlU 
H 
EM'. 
ERR/ 

MEASURE 



>7 
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SEQ 0100 



021732 104401 



110031: 



TRAP 



C$ETST 



K8 



CNDMAAO OMV11 MCTRL DIAG 01 
TEST 6 - - BUS RESET 
3708 



3709 
3710 
3711 
371c? 
3713 
3 714 
3715 
3716 
3717 
3 718 
3719 

3720 
3721 
3722 
3723 
3724 
3725 
3726 

3727 
3/28 
3/29 

3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3 739 
3740 
3741 
3742 
3743 
3744 
3/45 
3746 
3747 



021734 

021734 
021742 



021750 
021752 
021752 
021754 

021756 
021764 
021772 

021774 
021774 



021/76 
022002 
022006 
022010 

022012 
022020 



022022 

022030 
022034 
022040 
022046 
022054 



032737 
001072 



021744 004737 003614 



103002 

104460 
000465 

112777 000377 
122777 000377 
001035 



104433 



013701 002316 
105737 002317 
005301 
001374 

122777 000000 
001443 



117/37 
004737 
105077 
012737 
012737 



160324 
004434 
160312 
000000 
000000 
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.SBTTL TEST 6 - - BUS RESET 

J* 

t* TEST 6 - BUS RESET 

;* 

;♦ PERFORM AN INITIAL MASTER CLEAR. WRITE 377 INTO BSELO AND READ AND CHECK IT. 
;* THEN, ISSUE A RESET INSTRUCTION, STALL FOR COMPLETION, AND READ AND CHECK 
5* BSELO FOR 000. 
}* 

j - ..AAiAitiiii****************************************;*****^**^*********.**.** 



000001 002550 



160366 
160360 



160332 



002312 



002310 
002334 



SEQ 0101 



BGNTST 

BIT 
BNE 



OBITO.PFLAG 
24* 



T6; : 
j IF BUS RESETS ARE NOT ALLOWED, 
i BYPASS THIS TEST 



ELSE, ISSUE A MASTER CLEAR, AND DELAY FOR MICRO-DIAGNOSTICS TO COMPLETE BY 
CALLING SUBROUTINE MASCLR , 

i -ATTEMPT- TO RUN THE MICRO-DIAGNOSTIC 
{FAILURES WILL BE REPORTED BY THE SUBROUTINE 
jAS DEVICE FATAL AND THE "C" BIT WILL BE SET 
j IF NO ERROR, PROCEED 
{ELSE, REPORT IT AND 

TRAP C$ERRQR 

{ EXIT THIS TEST 



8$ 



2$ 



JSR 


PC, MASCLR 


BCC 
ERROR 


8$ 


RR 


24$ 


MOVB 
CMPB 
BNE 


0377.QBSELO 
0377,QBSEL0 
1$ 



BRESET 



jSET ALL BITS IN BSELO 

{COMPARE TO ALL BITS SET 

*A MISMATCH IS A DEVICE FATAL ERROR 

{FORCE AN EXTERNAL BUS RESET, THIS SHOULD 

TRAP CSRESET 

{CAUSE f»SELO-0 IN ABOUT 100 MICROSECONDS 



i DELAY ABOUT 500 MILLISECONDS FOR THE MICRODIAGNOSTIC TO COMPLETE 



MOV DELAY1.R1 

TSTB DELAY1*1 

DEC Rl 

BNE 2$ 

CMPB OOOO.SBSELO 

BEQ 24 % 



{INITIALIZE COUNTER 

{THIS IS A DUMMY INSTRUCTION TO LENGTHEN THE DELAY 

{TIME TO GET OUT OF THE DELAY? 

I NO. 

{YES, CHECK FOR REGISTER TO BE ^ERO 
jA MISMATCH IS A DEVICE FATAL ERROR 
{ELSE, END TEST. 



-PREPARE FOR THE FAILURE PRINTOUT-- 



MOVB 


06SEL0,BDATA 


JSR 


PC.GETBSR 


CLRB 


aesELO 


MOV 


OOOO.GDATA 


MOV 


00,REGNUM 


GEDF 


EM9,ERR2 



022054 104455 



{GET THE ACTUAL DATA 

{GET THE BSEL REGISTERS FOR DUMPING 

{DISABLE INTERRUPTS AS A PRECAUTIONARY MEASURE 

{GET THE EXPECTED DATA 

{GET THE REGISTER THAT FAILED 

{EXTERNAL BUS RESET FAILURE 

•'DEVICE FATAL" ERROR O 14 

TRAP C$ERDF 



39 
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3748 
3749 
3/50 
3751 
3752 
3753 
3754 
3755 



022056 
022060 
022062 
022064 

022066 
022074 
022100 
022104 
022112 
022<20 



000016 
014634 
005304 
000421 

117737 
004737 
105077 
112737 
012737 



BR 



160260 
004434 
160246 
000377 
000000 



002312 1$ 



002310 
002334 



022120 104455 

022122 000017 

022124 014611 

022126 005304 

3756 022130 105077 160216 

3757 022134 
022134 
022134 104401 



24$: 



SEQ O102 



24$ 



MOVB 


B6SEL0.BDATA 


JSR 


PC.GETBSR 


CLRB 


QBSELO 


MOVB 


0377.GDATA 


MOV 


00»REGNUM 


GEDF 


EM8.ERR2 



CLRB SJBSELO 
EN0TS1 



.WORD 14 
.WORD EM9 
.WORD ERR2 



»GET THE ACTUAL DATA 

I GET THE BSEL REGISTERS FOR DUMPING 

, DISABLE INTERRUPTS AS A PRECAUTIONARY MEASURE 

{ ALL ONES WAS EXPECTED DATA 

jGET THE REGISTER THAT FAILED 

jBSELO COULD NOT BE SET TO ALL ONES 

; "DEVICE FATAL" ERROR 15 

TRAP C$ERDF 
.WORD 15 
, WORD EM8 
.WORD ERR2 

j DISABLE INTERRUPTS AS A PRECAUTIONARY MEASURE 



L10032: 



TRAP 



CSETST 



M8 



CNOMAAO 
TEST 7 
3779 
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.SBTlL TEST 7 -- CSR, MAINTENANCE MICROCODE INTERACTION 



tiEQ 0103 



3780 



3781 
378? 
3783 

3784 
3765 
3786 
378/ 
3788 
3789 
3790 
3791 
379? 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 



022136 
022136 
022136 
022136 
022140 
022144 
022146 
022146 
022150 

022154 
022162 

022170 
022176 

022200 
022206 
022214 
022220 

022222 
022230 
022232 
022240 
022246 
022254 

022256 

022264 
022266 



104402 
004 737 
103003 

104460 
000137 

012777 
012777 

027727 

001411 

017737 
012737 
005037 
0OO451 

027727 

001412 
017/37 
012737 
012737 
000433 

027/27 

00141? 
017737 



003762 



022642 

000020 
000125 



160146 
0004 00 
0022 34 



160120 

000200 
000002 



160100 
160070 



160200 
160176 



160156 000400 



002312 
002310 



002312 
002310 
002334 



000C20 
002312 



TEST 7 -- CSR, MAINTENANCE MICROCODE INTERACTION 



J* 

;* 

}♦ THIS TEST INVOKES THE MAINTENANCE REQUEST MECHANISM THROUGH WHICH THE LSI 11 

j* AND 6502 CAN COMMUNICATE. FIRST, A MASTER CLEAR IS DONE WITH ONI Y BIT 

I* CMRF.Q) SET IN BSEL1. THE PROGRAM THEN CHECKS FOR THE SETTING OF BSEL? BIT 7 

j* (MRDY) BY THE MAINTENANCE MICROCODE WITHIN ABOUT 50 MICRO-SEC. AND IF MRDY 

s* DOES NOT GET SET, AN ERROR IS REPORTED. 

J* 

} * NEXT, THE PROGRAM LOADS SEL4 WITH OOO01O AND BSEL6 WITH 125. THEN. ALL CSR'S 

;* ARE READ AND CHECKED FOR EXPECTED CONTENTS. 

; + 

j* BSEL2 IS THEN LOADED WITH A WRITE COMMAND. WHICH SHOULD CAUSE. THE MICROCODE 

i* TO TRANSFER THE 125 INTO BSELO. ALL CSR'S ARE THEN READ AND CHECKED FOR 

;* EXPECTED CONTENTS. 

s* 

}• THEN, THE PROGRAM LOADS 252 INTO BSELO AND READS AND CHECKS ALL CSR'S. BSEL? 

j+ IS THEN LOADED WITH P READ COMMAND, WHICH SHOULD CAUSE THE MICROCODE TO 

j* TRANSFER THE 252 INTO BSEL6. ALL CSR'S ARE READ AND CHECKED. 
1 + 



T7:i 

T7.1: 

TRAP C$BSU6 
{PUT THE MICROPROCESSOR IN THE MAINTENANCE LOOP 
j IF NO ERROR, PROCEED 
{ELSE, REPORT IT AND 

TRAP CSERROR 
i EXIT THIS TEST 

{PUT ADDRESS OF SELECT REGISTER IN 'ADDRESS' REG 
{PUT THE DATA TO BE WRITTEN IN 'DATA' REGISTER 

i ONLY "MREQ" SHOULD BE SET 

j IF IT IS, PROCEED WITH TESTING 

jELSE, SETUP FOR C6 REPORT) THE ERROR 

; BAD DATA 

j GOOD DATA 

; REG. NUMBER 



10$ 



160150 000200 1$ 



2$ 



BGNTST 




BGNSU6 




JSR 
BCC 
ERROR 


PC.MSTCLR 
10$ 


JMP 


ENDT7 


MOV 
MOV 


0SLT0.QSEL4 

*125,3SEL6 


CMP 
BEQ 


SSELO.^400 

1$ 


MOV 
MOV 
CLR 
BR 


aSELO.BDATA 
0400.GDATA 

REGNUM 
4$ 


CMP 
BEQ 
MOV 
MOV 
MOV 
BR 


aSEL2,fr200 
2? 

8SEL2,BDATA 
#200, GOAT A 

#2, REGNUM 
4$ 


CMP 
BtQ 
MOV 


aSEl.4,#SLT0 
3$ 

o)SEL4,BDATA 



j "MRDY" SET? (ALSO CHECKED BY "MSTCLR") 

jYES. PROCEED WITH TESTING 

j BAD DATA 

i GOOD DATA 

; THE REG. THAT FAILED 

{EXIT TEST 

{COMPARE SELECT REGISTER 4 WITH THE ADDRESS SENT 
; A MISMATCH IS A DEVICE FATAL ERRUR 
{GET THE BAD DATA 



N8 



n 
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TEST 7 -- CSR. MAINTENANCE MICROCODE INTERACTION 

MOV *SLTO,GDATA 

MOV 44,REGNUM 

BR 4* 

CMP o)SEL6, 0000125 

BEQ 60$ 

MOV SSEL6.BDATA 

MOV !>00C125,GDATA 

MOV tf6,REGNUM 



SEQ 0104 



3807 022274 


012737 


000020 


002310 


3808 022302 


012737 


OOOOOA 


002334 


3809 022310 


000415 






3810 








3811 022312 


027727 


160050 


000125 


3812 022320 


001415 






3813 022322 


017737 


160040 


00231? 


3814 022330 


012737 


000125 


002310 


3815 022336 


012737 


000006 


002334 


3816 








3817 








3818 








3819 








3820 022344 








022344 


104455 






022346 


000020 






022350 


014564 






022352 


005552 






3821 022354 








022354 








022354 


104403 






3822 








3823 022356 








022356 








022356 


104402 






3824 








3825 022360 


112777 


000002 


157770 


3826 








3827 022366 


032777 


000200 


157762 


3828 C22374 


001421 






3829 022376 


017737 


157754 


002312 


3830 022404 


004737 


004434 




3831 022410 


012737 


000002 


002310 


3832 022416 


012737 


000002 


002334 


3833 022424 








022424 


104455 






02242b 


000021 






022430 


'J14733 






022432 


005304 






3834 022434 








0224 34 


104410 






022436 


000206 






3835 








3836 022440 


132777 


000200 


157710 


383/ 022446 


001774 






3838 








3839 022450 


004 737 


004576 




3840 








3841 022454 


023727 


002246 


000525 


3842 








3843 022462 


001412 






3844 022464 


012737 


000525 


002310 


3845 022472 


013737 


002246 


002312 


3846 022500 


012737 


OQOOOO 


002334 


3847 022506 


000451 







3$: 



5 GET THE GOOD DATA 

{GET THE REGISTER NUMBER WHICH FAILED 



j COMPARE SELECT REGISTER 6 WITH THE DATA SENT 

j THIS PART CF THE TEST PASSES IF A MATCH IS FOUND 

I GET THE BAD DATA 

;GET THE GOOD DATA 

jGET THE REGISTER NUMBER 



4$: 



s --PREPARE FOR THE FAILURE PRINTOUT -- 
GEDF EM7.ERR5 



60; 



ENDSUB 



j ELSE, 


AN ERROR 
"DEVICE 


HAS BEEN FOUND 
FATAL" ERROR *> 


16 
TRAP 

.WORD 
.WORD 
.WORD 


C$ERDF 
16 

EM7 
ERR5 






L10034: 


TRAP 


CJE5UB 



iMQOMQQtiOQOOQiXWtiti > P A R T 
BGNSUB 



2 < MMWMt*&MMtiQ##&###tiif#Q*#$QP&#&itQ#1>$##$# 

T7.2: 



TRAP 



C$BSUB 



MOVB 



#WRIL0C,S>eSEL2 {SEND THE WRITE LOCATION COMMAND 



BIT 


$200,S>6SEL2 


BEQ 


5* 


MOV 


S8SEL2.BDATA 


JSR 


PC,GETBSR 


MOV 


4002,GDATA 


MOV 


02.REGNUM 


GECF 


EM15.ERR2 



{WE SHOULD HAVE IMEDIATLY LOST "MRDY", 
GOT WHAT WE EXPECTED, WAIT FOR READY AGAIN 
SOMETHING WRONG. SETUP FOR AND REPORT ERROR 
GET THE BSEL REGISTERS FOR DUMPING 
EXPECTED DATA 

{WE WERE TESTING BSEL2 



5$ 



ESCAPE TST 



BITB V>200,5)BSEL2 

BEQ 5$ 

JSR I'C.GKTWSR 

CMP WSRO, #000525 

BEQ 61 

MOV O0CO525, GDATA 

MOV WSRO.BDATA 

MOV *0,REGNUM 

BR 9$ 



"DEVICE FATAL" 


ERROR i> 17 






TRAP 


CSERDF 




.WORD 


17 




. WORD 


EM15 




.WORD 


FRR2 




TRAP 


CSESCAPE 




.WORD 


L10033-. 



{WAIT FOR "MRDY" TO GO HIGH AGAIN 



;WHEN IT DOES, GET CURRENT REGISTER CONTENTS 

{COMPARE BYTE SELtCT REGISTERS AND 1 
REG • 125, REG I • 001 

THIS PART OF THE r EST PASSES IF A MATCH XS FOUND 

GET THE GOOD DA1A 
{GET THE BAD DATA 
jGtt THE REGISTER NUMBER 
{EXIT TEST 



B9 



92 
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3848. 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3356 
3859 
3860 
3861 
386? 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
38 70 
3871 

38 72 
3875 
3874 

3875 
3876 



022510 023727 002250 000200 6*t 



022516 
022520 
022526 
022534 
022542 



022552 
022554 
022562 
022570 
022576 

022603 
022^06 
022610 
022616 
022624 



022632 



022632 
022634 
022636 
022640 

3877 022642 
022642 
022642 

5378 022644 
022644 
022644 



001412 
012737 
013737 
012737 
000433 



000200 
002250 
0000' 



002310 

002312 

2334 



022544 023727 002252 000020 7*s 



0O1412 
012737 
013737 
012737 
000415 

023727 
001415 

012737 
013737 
012737 



104455 
000022 
014564 
005552 



104403 



104404 



000020 
002252 
000004 



002310 
002312 
002334 



002254 000125 8$: 



000125 
002254 

000006 



002310 
002312 
002334 



CMP WSR2 ,0000200 



BEQ 7t 

MOV 0000200, GDAT A 

MOV USR2.BDATA 

MOV 02.REGNUM 

BR 91 



CMP WSR4.0SLTO 

BEQ 8! 

MOV OSLTO.GDATA 

MOV WSR4.80ATA 

MOV 04,REGNUM 

BR 9% 

CMP WSR6, 000012b 

BEQ ENDT7 

MOV 0000125, GOATA 

MOV WSR6.BDATA 

MOV 06.REGNW1 



SEO 0105 



COMPARE BYTE SELECT REGISTERS 2 ANO 3 

REG 2 - 200 -- "MRDY" IS SET L COMMAND IS CLEARED 

REG 3 - 000 SHOULD BE ZEROES. 

THIS PART OT THE TEST PASSES IF A MATCH IS FOUND 

GET THE GOOD DATA 

GET THE BAD DATA 

GET THE REGISTER NUMBER 

EXIT TEST 

SUBROUTINE ATTEMPTED TO ZERO THIS LOCATION. 
REG 4 « 020, THE 6502 ADDRESS TO PUT DATA 
REG 5 ■ 000, ZEROED Br MSTCLR 
THIS PART OF THE TEST PASSES IF A MATCH IS FOUND 
GET THG GOOO DATA 
GET THE BAL DATA 
GET THE REGISTER NUMBER 
EXIT TEST 

R£G 6 - 125, THE WRITE DATA 

THIS PART Of THE TEST PASSES IF A MATCH IS FOUND 
GET THE GOOO DATA 
GET THE BAD DATA 
GET THE REGISTER NUMBER 
REG 7 ■ OOO, ZEROED BY MSTCLR, 



9l! 



j -PREPARE FOR THE FAILURE PRINTOUT - 
GEDF EM7.ERR5 



i REPORT ERROR. 

I "DEVICE FATAL" ERROR 



ENOTVi ENOSUO 



END T ST 



18 
TRAP 
.WORD 
.WORD 
.WORD 



L 10035 5 
L 10033: 



TRAP 



TRAP 



OERDF 
18 
EM7 
ERR5 



ciEsue 



C*ETSt 



C") 



CNDMAAO DMV11 MCTRL DIAG 01 
TEST 8 RUN KLIP FLOP 
3893 



MACRO M1200 22 FEB 84 15}22 PAGE 58 



3894 
3895 
3896 
3897 

3898 
3899 
3900 
3901 
390? 
3903 
3904 
3905 
3906 

3907 
3908 
3909 

3910 
3911 
391? 
3913 



3914 



3915 
3916 
3917 
3918 
3919 
3920 

39^; 



022646 
022646 

022652 
022654 
022654 
022656 



022662 
022666 

022670 
022672 
022674 
022674 
022676 
022700 
022706 
022710 
022716 
022724 
022730 

022730 
022732 
022734 
022736 
022 740 
022740 
022742 



022/50 
022*/ 56 



004737 

103003 

104460 
000137 



0O4557 
000020 
000125 

103002 

104460 
000545 

123777 
001416 
017737 
013737 
005037 



104455 

000023 
015013 
00555? 

104410 
000250 



142/77 
112777 



003762 



023212 



004322 



157436 
022670 
002334 



002312 
002310 



022744 105077 15/402 



000200 
00OOQ2 



15/3/6 
157372 



.SBTTL TEST » 



RUN FLIP FLOP 



BGNTST 




JSR 


PCMSTCLR 


BCC 
ERROR 


2* 



022670 157444 5$ 



JSR 


R5.WR1TEI 


SLTO 




125 




BCC 


5$ 


ERROR 




BR 


241 


CMPB 


io*,aesELo 


BEQ 


n* 


MOV 


QSELO.BDATA 


MOV 


10*,GDATA 


CLR 


REGNUM 


GEDF 


EM16,ERRb 



SEQ 0106 



* TEST 8 -- RUN FLIP-FLOP 

4 THE PROGRAM PUTS THE MICROCOOE INTO THE MAINTENANCE LOOP. A 125 CHARACTER 

♦ IS LOADED INTO BSEL6 ANO A RECKJEST IS MADE TO WRITE THE CONTENTS OF BSEL6 

♦ INTO BSELO, THE PROGRAM THEN READS AND CHECKS BSELO TO CONTAIN 125. 

* NEXT, THE RUN FLIP-FLOP IS CLEARED BY LOADING A INTO RUN (BSEL1 BIT 7). 

♦ BSELO IS THEN CLEARED ANO THE REQUEST IS MADE AGAIN TO WRITE THE CONTENTS 

* OF BSEL6 INTO BSELO. THE PROGRAM STALLS FOR 50 MICRO-SEC. ANO CHECKS FOR 

♦ MRDY (BSEL2 BIT 7) NOT SET, ANO BSELO STILL CLEARED. 

• THEN, THE PROGRAM SETS THE RUN FLIP-FLOP AGAIN BY LOADING A 1 INTO RUN. 

* ANO CHECKS FOR MRDY SET WITHIN 50 MICRO-SEC. ANO BSELO - 125. 
♦ 

Id: : 

iCALL SUBROUTINE TO INITIALIZE THE CSR'S AND 
iPUT THE 6502 INTO THE MAINTENANCE LOOP 
I IF NO ERROR, PROCEED 
jELSE, REPORT IT AND 

TRAP CJERROR 

JMP 24* t EXIT THIS TEST 

I DO NORMAL WRITE INTO LOCATION USED BY BSELO 

2*: JSR R5.WR1TEI iWRITE INTO BSELO THROUGH THE BACK DOOR! 

j ADDRESS OT BSELO WITHIN RAM 
10*! 125 » TEST DATA 

I IF AN ERROR OCCURED, 

iREPORT IT £ 

TRAP C*ERROR 

I EXIT 

iDID THE DATA GO INTO BSELO? 

»YES. NOW TRY IT WITH THE "RUN" 9IT OFF 

iNO, SETl^ £ PRINT ERROR MESSAGE 

j WE' RE SINGLING OUT SE1.0 FOR T HE MESSAGE 

I "DEVICE FATAL" ERROR * 19 

TRAP CfEROF 

.WORD 19 

.WORD EM16 

.WORD tRRS 

jlf THIS WRITE DIDN'T WORK, THERfc IS NO SI NSE 

TRAP C1ESCAPE 

.WORD 1.1003*-. 
I IN TRYING IT WITH "RUN" OFF} 

l CLEAR BSELO AGAIN 

iREG'S ARE Al READY SETUP f ROM PREVIOUS WRIU 

i TURN OFF THE RUN B I T C HOPEFULLY THE 65QJ ALSO 

I TELL MLOOP TO WRITE AGAIN 



Uli 



ESCAPE VST 



Cl RB aeSELO 

BIC8 *RUN.S8SEl 1 

M0V9 flWRlLOCStiSELC 



)4 



022764 
022770 
022776 



023000 
023004 
023006 



013701 
132777 
001042 



105777 
001063 
077110 



002320 
000200 



157346 
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3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3954 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
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023010 152777 000200 157336 



023016 
023022 
023030 



013701 
132777 
001070 



002320 
000200 



023032 077105 



3966 



3967 
3968 
3969 

39 70 

59/1 



023034 
023042 
023046 
023054 
023062 
023070 

023070 
023072 
02 3074 
023076 
023100 
025100 
023102 



025104 
023112 



117737 
004737 
113737 
152737 
012737 



104455 
000024 
015110 
005304 

104410 
000110 



11773/ 
004757 



157316 
004434 
002312 
000200 
000002 



002312 

002310 
002310 
002334 



157246 
004434 



SEU 0107 



iAT THIS POINT, THE OMV-U SHOULD BE QUIESCENT, IT SHOULDN'T EVEN KNOW THAT 
i WE HAVE CLEARED "MRDY", THEREFOR, THERE SHOULD BE NO CHANGE IN ANY OF THE 
jREGISTERS FOR AS LONG AS WE LARE TO WAIT AND WATCH, THE ONLY CHANGE THAT WE 
jCOULD POSSIBLY SEE WOULD BE "MRDY" BEING SET AGAIN ANO/OR BSELO GETTING 
lLOADED WITH THE TEST DATA -- WHICH IS WHAT THE REQUESTED COMMAND SHOULD 
I ACCOMPLISH WHEN THE FUNCTION IS ALLOWED TO RUN AGAIN. 



157360 12$ I 



MOV DELAY2.R1 

BITB OMRDY,OBSE12 

BNE 14; 



TSTB H8SEL0 

eNE 15* 

SOB R1.12I 



I SETUP AND WAIT FOR A WHILE. 

I WHILE WE'RE WAITING, WE MAY AS WELL CHECK "MRDT 

» IF IT GETS SET, WE HAVE AN ERROR BECAUSE 

iNOTHING WAS SUPPOSED TO HAPPEN WITHIN 

I THE 6502 MICRO-PROCESSOR 

I WHILE WE'RE AT IT, WE MAY AS WELL LOOK AT 

iBSELO. THAT ALSO ISN'T SUPPOSED TO CHANGE. 

iDECREMENT AND CHECK COUNTER ~- LOOP TILL DONE 



j IF EVERYTHING GOES OK, WE SHOULD FALL OUT OF THE LOOP TO 
j ''MRDY" OR BSELO COULD CHANGE SENDING US TO "14$" OR "15$ 
l PRINT AN APPROPRIATE (WE HOPE) ERROR MESSAGE. 



HERE. OTHERWISE 
' RESPECTIVELY TO 



I IF WE DO GET TO HERE, WE CAN NOW SET "RUN" AND THE MLOOP SHOULD PERFORM THE 
^REQUESTED FUNCTION. 



BISB 



♦RUN.seSELl 



i SET "RUN" AND ALLOW THE 6502 TO RUN AGAIN 



»N0W ALL WE HAVE TO DO IS WAIT AGAIN AS BEFORE. C V CEPT THAT THIS TIME "MRDY 
{OR 8SEL0 GETTING SET IS THE VALID CONDITION - - NOT 1r£ FRROR. FAILURE TO 
jPERFORM IS NOW THE ERROR WE'RE LOOKING FOR. 



157326 13$! 



MOV DELAY2.R1 
BITB GMRDY.SSEL2 
BNE 24 $ 



,SETUP ANO WAIT FOR A WHILE. 

I WHILE WE'RE WAITING, "MROY" SHOULD GO NON-ZERO 
l IF IT GETS SET, WE CAN ASSUME THAT SOMETHING 
iCOMPLETED. AT LEASE WE WERE ABLE TO GET THE 
j6502 MICRO -PROCESSOR RUNNING AGAIN 
jDECREMENT ANO CHECK COUNTER -- LOOP TILL DONE 



SOB Rl,13$ 

j IF WE GET HERE, WE WEREN'T ABLE TO RESTORE THE 6502 TO A RUNNING STATE} 

I SETUP FOR THE ERROR MESSAGE -- GET BAD DATA 

jGET THE BSEL REGISTERS FOR DUMPING 

iPICK THE REGISTER'S DATA. THE ONLY DIFFERANCE 

jBETWEEN GOOD C BAD IS THE '•MRDY" BIT 

I INDICATE THAT WE'RE LOOKING AT BSEL2 

j NOW REPORT THE ERROR 

I "DEVICE FATAL" ERROR 20 

TRAP 
.WORD 
.WORD 
.WORD 
lEXIT TEST IUR LOOP, MAYBE?) 

TRAP C»ESCAPt 
.WORD L 1003b-. 



MOVB 


SSEL2.BDATA 


JSR 


PC, GETBSR 


MOVB 


bDATA.GDATA 


BISB 


GMRDY.GOATA 


MOV 


«2,REGNUM 


GEDF 


EM17.ERR2 



ESCAPE TST 



C$ERDF 
20 
EM17 
ERR2 



jIF WE (JET HEREt BSEL2 CHANGED WHEN THE 6502 WASN'T SUPPOSED TO BE RUNNING! 



002312 14$: 



MOVB BBSEL2,BD/UA 

JSR PC, GETBSR 



iGET THE UNEXPECTEDLY ALTERED CONTENTS OF BSELJ 
l GET THE BSEL REGISTERS FOR DUMPING 
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SEQ 0108 



3972 023116 

3973 023124 

3974 023132 

3975 023140 



023140 
023142 
023144 
023146 
023150 
023150 
023152 



3976 



3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 



023154 
023162 
023166 
023172 
023176 



023176 
023200 
023202 
023204 

3985 023206 
023206 
023210 

3986 

3987 

3988 

3989 023212 
023212 
023212 



002312 
000200 
000002 



113737 
142737 
012737 



104455 
000025 
015170 
005304 

104410 
000040 



117737 157172 

004737 004434 

105037 002310 

105037 002334 



104455 
000026 
015170 
005304 

104410 

000002 



002310 
002310 
002334 



MOVB BDATA.GDATA 

BICB *MRDY,GDATA 

MOV 42.REGNUM 

GEDF EM17A.ERR2 



ESCAPE TST 



I PICK THE REGISTER'S DATA. THE ONLY DIFFERANCE 
iBETWEEN GOOD 6 BAD IS THE "MRDY" BIT 
j INDICATE THAT WE'RE LOOKING AT BSEL2 
j NOW REPORT THF ERROR 
I "DEVICE FATAL" 



lEXIT TEST COR LOOP, 



" ERROR 21 




TRAP 


CIERDF 


.WORD 


21 


.WORD 


EM17A 


.WORD 


ERR2 


MAYBE?) 




TRAP 


CIESCAPE 


.WORD 


L 10036 -, 



j IF UE GET HERE, BSELO CHANGED WHEN THE 6502 WASN'T SUPPOSED TO BE RUNNING. 1 

»GET THE LNEXPECTEDLY ALTERED CONTENTS OF BSELO 

jGET THE BSEL REGISTERS FOR DUMPING 

* IT WAS SUPPOSED TO STAY AT ZERO 

I INDICATE THAT WE'RE LOOKING AT BSELO 

;NOW REPORT THE ERROR 

j "DEVICE FATAL" 



002312 


15*s 


MOVB 


aeSELO.BDATA 






JSR 


PC.GETBSR 






CLRB 


GDATA 






CLRB 


REGNUM 






GEDF 


EM17A.ERR2 



ESCAPE TST 



lEXIT TEST (OR LOOP. 



" ERROR 22 




TRAP 


CiERDF 


.WORD 


22 


.WORD 


EM17A 


.WORD 


ERR2 


MAYBE?) 




TRAP 


C*ESCAPE 


.WORD 


L10036-. 



tIF WE GET HERE, THE TEST APPEARS TO HAVE PASSED WITH FLYING COLOURS 
24*; ENDTST 



104401 



L 10036: 



TRAP 



CJETST 
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SEQ 0109 



4005 
4006 
4007 

4008 



4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 

4020 



4021 
4022 
4023 
4024 

4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4Q3£ 



023214 
023214 
023220 
02322<" 
02322,? 
02322* 
023224 
023226 
023230 
023236 
023244 
023250 
023254 



023260 
023264 
023266 
023266 
023270 
023270 
023272 
023274 
023300 
023306 
023310 
023310 



023312 
023316 
023322 
023324 
023324 



004 737 
103003 

1C4460 

104410 
000152 
012737 
012737 
004737 
005037 
005037 



004737 
103003 

104460 

104410 
000106 
005237 
023737 
101764 

104422 



004737 
004737 

103001 

104460 



003762 



000001 
003777 
023402 
002450 
002452 



023420 



002464 
002464 



023402 
0^3616 



002444 
0024 74 



002474 



.SBTTL TEST 9 



LOW RAM (00 -OF) SCRATCHPAD 



* TEST 9 -- LOW RAM COO-OD SCRATCHPAD 
♦ 

* THIS TEST FIRST PERFORMS AN ADDRESSING TEST OF RAM LOCATIONS COO-OF). BY 

* WRITING THE ADRS INTO EACH LOCATION AND AFTER EACH WRITE, ALL THE LOCATIONS 

* ARE READ AND CHECKED FOR EXPECTED CONTENTS. 

* THEN, THE TEST PERFORMS READ/WRITE DATA TESTING OF RAM LOCATIONS 00 -OF, 

* BY WRITING, READING, AND COMPARING ALL BYTES OF DATA PATTERN B IN EACH 

* LOCATION. 

* DATA PATTERN B » 125, 252, 000, 377, 001, 002, 004, 010, 020, 040, 100, 

* 200. 376, 375, 373. 367, 357, 337, 277, 177, 000 
* 



i 



BGNTST 

JSR 
BCC 
ERROR 



PC.MSTCLR 
IS 



1$ 
2$ 



ESCAPE TST 



MOV 01.TMP2 

MOV 0204 7..TMPE 

JSR PC.T9.RST 

CLR TMP4 

CLR TMP5 



T9: : 

iINIT OMV 6 ENTER M-LOOP 

I IF NO ERROR, PROCEED WITH TESTING 

I ELSE, REPORT ERROR 

TRAP 

l £ EXIT TEST 

TRAP 
.WORD 

jDATA GENERATION ALGORITHM CODE 

jLAST VALID ADDRESS 

iRESET TMP3, TMPA, 6 TMPF 

I TEST DATA 

j ACTUAL DATA 



CiERROR 

C&ECCAPE 
1.10037 - t 



j IN THIS PHASE OF TESTING WE WRITE. READ 6 CHECK EACH LOCATION INDIVIDUALLY, 
4$: 



JSR 
BCC 
ERROR 



PC.WRCRAM 
5$ 



jWRITE, READ. C CHECK 1 BYTE OF RAM 
l IF NO ERROR, PROCEED 
lELSE, REPORT IT 



ESCAPE TST 



6 LOOP IF ERROR 



5$ 



INC 
CMP 
BLOS 
BREAK 



TMPA 

TMPA.THPE 

4$ 



TRAP 

TRAP 
.WORD 



CiERROR 

CIESCAPE 
L10037-. 



jPOINT TO NEXT I OCATION 

jHAVE WE TESTED ALL OF RAM? 

jNO. TEST ANOTHER BYTE 

lELSE, SEE IF A tC HAS BEEN STRUCK 

TRAP 
l THEN PROCEED TO THE NEXT PHASE OF TESTING 



C«RRK 



j IN THIS PHASE OF TESTING WE READ £ CHECK DATA WHICH SHOULD ALREADY BL IN 
j EACH LOCATION OF RAM BEING CHECKED. 



8*1 



JSR 


PC.T9.RST 


JSR 


PC »RCR AM 


BCC 


<H 


ERROR 





iRtSfT TMP3. TMPA, 6 TMPF 
{READ C CHECK 1 BYTE OF RAM 
I IF NO ERROR, PROCEED 
lELSE. REPORT IT 



TRAP 



CJERROR 



G9 
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9$: 



SEQ 0110 



4034 023326 


005237 


002464 


4035 023332 


023737 


002464 002474 


4036 023340 


101766 




4037 023342 






023342 


104422 




4038 






4039 






4040 023344 


005037 


007104 


4041 023350 


005237 


002444 


4042 023354 


023727 


002444 000007 


4043 023362 


002730 




4044 023364 


004537 


004322 


4045 023370 


000173 




4046 023372 


000000 




4047 023374 


103001 




4048 023376 






023376 


104460 




4049 023400 






023400 






023400 


104401 




4050 






4051 






4052 






4053 023402 


005037 


002446 


4054 023406 


005037 


002464 


4055 023412 


00503 7 


002476 


4056 023416 


000207 




4057 






4058 






4059 






4060 023420 


010046 




4061 






4062 023422 


004737 


023776 


4063 






4064 023426 


013700 


002464 


4065 0234 32 


020027 


000020 


4066 023436 


103412 




4067 O23440 


020027 


000030 


4068 023444 


103007 




4069 023446 


023727 


002444 000006 


4070 023454 


001055 




4071 023456 


005337 


002446 


4072 023462 


00O452 




4073 






4074 023464 


010037 


023500 


4075 023470 


010037 


023512 


4076 






40 7/ 0234 74 


004537 


004310 


4078 3500 


000000 




4079 023502 


002450 




4080 023504 


103442 




4081 






4082 023506 


00453 7 


Q04064 


4083 023512 


000000 




4084 023514 


0024 52 




40*5 023t>!6 


103435 




4086 







INC 


TMPA 


CMP 


TMPA.TMPE 


BLOS 


8$ 


BREAK 




CLR 


ER47CT 


INC 


TMP2 


CMP 


TMP2.47 


BUT 


2$ 


JSR 


R5.WRITEI 


173 









BCC 


.♦4 


ERROR 





ENDTST 



jPOINT TO NEXT LOCATION 

lHAVE WE TESTED ALL OF RAM? 

iNO, TEST ANOTHER BYTE 

jELSE, SEE IF A tC HAS BEEN STRUCK 

TRAP CIBRK 
j THEN PROCEED TO THE NEXT PHASE OF TESTING 

iRESET ERROR PRINT COUNT 

I ADVANCE TO NEXT DATA GEN. ALGORITHM CODE 
» HAVE WE DONE ALL THE CODES WE'RE GOING TO DO? 
iNO, THEN GO DO THIS PATTERN IN RAM 
I ELSE, CLEAR RAM LOCATION 00B3 (HEX) £ EXIT 
(THIS CONVERTS TO 00B3 HEX.) 

WE HOPE, WILL CLEAR IT) 

PROCEED 

IT 

TRAP 



I 

J 

j IF NO 

jELSE, 



CTHIS 
ERROR , 
REPORT 



L1O037: 



TRAP 



CJERROR 



C$ETST 



I RESET THE FOLLOWING THREE REGISTERS 



T9.RS1 : 



CLR 
CLR 
CLR 
RTS 



} WRITE* READ, 

WRCRAM: MOV 

JSR 

MOV 
CMP 
BLO 

CMP 

BHIS 

CMP 

BNE 

DEC 

BR 



25 



4* 



8$ 



MOV 
MOV 

JSR 
.WORD 
TMP4 
BCS 

JSR 

.WORD 
TMP5 



TMP3 
TMPA 
TMPF 
PC 

6 CHECK ONE 

RO,-(SP) 

PC.PATGEN 

TMPA.RO 

RO.OSLTO 

2$ 

RO,0SLTO*8 

2$ 

TMP2.06 

12* 
TMP3 

12$ 

HO, 41 
R0,8$ 

R5, WRITE 


14$ 

R5.READ 


14* 



j TEST DATA PATTERN INDEX 
{RAM LOCATION ADDRESS 
jRESET ALL ERROR FLAGS 



LOCATION 



j SAVE WORKING REGISTERS 

{GENERATE ONE OATA PATTERN BYTE 

jGET ADDRESS WHERE WE C -iU CHECK IT MORE EASILY 

iIS ADDRESS BELOW THE SELECT REGESTER AREA? 

j YES, GOOD. IT CAN 3E TESTED. 

lIS IT ABOVE THE SELECT REGISTER AREA? 

jYES, GOOD. IT CAN BE TESTED. 

iNO, IF "INCREMENTAL *, BACK lv INDEX 

lELSE JUST BYPASS TEST 

I DECREMENT INOEX TO WHAT IT WAS BEFORE "PATGEN" 

l AND THEN BYPASS THE TESTING 

j SETUP ALL POINTERS FOR THE CURRENT RAM LOCATION 



iWRITE ONE BYTE OF THE TEST DATA 
,♦♦«♦ MODIFIED FROM ABOVE *♦♦♦ 
iTEST DATA IS IN TMP4 
lIF ERROR WRITING, FORGET THE REST 

jRPAD THAT BYTE BACK AGAIN 
!♦♦♦* MODIFIED FROM ABOVE ♦♦♦♦ 

I IF ERROR READING, FORGET THE REST 



0098 
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TEST * - - LOW RAM COO-OF) SCRATCHPAD 



4087 
4068 
4089 
4090 
4091 
4092 



4093 
4094 
4095 
4096 
409/ 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4U5 
4U6 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4 126 
4127 
4128 
4129 



023520 
023526 
023530 
023536 
023540 
023546 

023546 
023554 
023562 
023570 

023576 

023600 
023604 
023606 

023610 
023612 
023614 

023616 

023620 

023624 
023630 
023634 
023636 
023642 
023644 
023652 
023654 
023660 



4130 
4131 
4132 
4133 



123737 
001430 
132737 
001020 
112737 



012737 
012737 
012737 
012737 
000402 

004 737 
000261 
000401 

000241 
012600 
000207 

0100-46 

001737 

013700 
020027 
103412 
02002 7 
103007 
023727 
001046 
005337 
000443 



023662 010037 



023666 
0236 72 
0236 74 
023676 

023 700 
023706 
023710 
023716 
023 7?0 
0P3/26 

023726 

023734 
023742 
023750 
023756 

023/f,0 
023764 



004537 
000000 
002452 
103435 



123737 
0014 30 
132757 



0C1020 



012737 
012737 
012737 
012737 
000402 

004 m 

000261 



002450 


002452 


CMP8 


TMP4.TMP5 






BEQ 


12* 


000002 


0024 76 


BITB 


WITl.TMPF 






BNE 


91 


000002 


002476 


MOVB 


•BIT1.TMPF 






GTDF 


EM47A.ERR47 



000001 002236 

000027 002240 

015675 002242 

006724 002244 



007110 



9$; 

10$ 



12$: 
14$: 



023776 

002464 
000020 

000030 

002444 000006 

002446 

023672 
004064 



2$: 

8$: 



002450 002452 
000004 002476 
112737 000004 0024 76 



000001 002236 

000030 002240 

015735 002242 

006 724 002244 



007110 



BR 

JSR 
SEC 
BR 

CLC 

MOV 



RCRAM: MOV 

JSR 

MOV 

CMP 

Bl.U 

CMP 

BHIS 

CMP 

BNE 

DEC 

BR 



MOV 

JSR 
.WORD 
TMP5 
BCS 

CMPB 
BEQ 
BITB 
BNE 

MOVB 
GTDF 



9$; 

10$ 



BR 

JSR 

SEC 



10$ 

PC, ERR47, 

14$ 



(SP)*,RO 
PC 

RO,-CSP) 

PC.PATGEN 

TMPA.RO 

RO.OSLTO 

2$ 

R0,*SLT0*8, 

2$ 

TMP2.06 

12$ 

TMP5 

12$ 

R0,8$ 

R5.READ 


14$ 

TMP4 , TMP5 

12$ 

0BIT2,TMPf- 

9$ 

0BIT2.TMPF 

EM47B.ERR47 



10$ 
PC.ERR4 7, 



SEQ 0111 



j DID WE READ WHAT WE WROTE? 

jYES, EXIT 

iNO, HAVE WE ALREADY DONE THIS ERROR'S HEADER? 

j YES, ONLY REPORT DATA 

{ELSE, CALL MONITOR £ PRINT HEADING 

j QUEUE UP THE ERROR MESSAGE 

i QUEUE "DEVICE FATAL" ERROR 23 

MOV OT.EDF.ERRTYP 
MOV 023.ERRNBR 
MOV OEM47A.ERRMSG 
MOV 4ERR4 7,ERRBLK 



JUST PRINT DATA 

£ SET THE ERROR FLAG 

6 GO DIRECTLY TO THE EXIT "RTS" 

NORMAL EXIT - MAKE SURE THE ERROR FLAG IS CLEAR 
RESTORE WORK REGISTERS 



SAVE WORKING REGISTERS 

GENERATE ONE DATA PATTERN BYTE 

GET ADDRESS WHERE WE CAN CHECK IT MORE EASILY 
IS ADDRESS BELOW THE SELECT REGESTER AREA? 
YES, GOOD. IT CAN BE TESTED. 
IS IT ABOVE THE SELECT REGISTER AREA? 
YES. GOOO. IT CAN BE TESTED. 
NO, IF "INCREMENTAL", BACK UP INDEX 
ELSE JUST BYPASS TEST 

DECREMENT INOEX TO WHAT IT WAS BEFORE "PATGEN" 
AND THEN BYPASS THE TESTING 

SETUP POINTER FOR THE CURRENT RAM LOCATION 

READ THAT BYTE BACK AGAIN 
*♦** MODIFIED FROM ABOVE **** 

IF ERROR READING, FORGET THE REST 

WAS THIS LOC. STILl OK? 
YES, EXIT 

NO, HAVE WE ALREADY DONE THIS ERROR'S HEADER? 

YES, ONL^f REPORT DATA 

ELSE, CALL MONITOR £ PRINT HEADING 

QUEUE UP THE ERROR MESSAGE- 
QUEUE "DEVICE FATAL" ERROR 3 24 

MOV OT .EOF .ERR TIP 
MOV 024.F.RRNOR 
MOV ctM4 *B .ERRMSi", 
MUV AERR4 7.ERRBLK 



j JUST PRINT DATA 

j £ SET THE ERROR FLAG 



19 
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TEST 9 - LOW RAM (00 -OK) SCRATCHPAD 



SEQ 0112 



4154 


023766 


000401 


41X5 






4136 


023/70 


000241 


413 7 


023/72 


012600 


4138 


025774 


000207 


4139 






4140 






4141 






414.? 






414* 






4144 






4145 






414b 






414/ 






4148 






4149 






4150 






4151 






4152 






4153 






4154 






4155 






4156 






4157 






4158 






41b^ 






4160 






4161 






416? 






4163 






4164 






4165 






4166 


023776 




4167 


023776 


023727 


4168 


024004 


002414 


4169 


0240O6 


001417 


4170 


024010 


023727 


4171 


024016 


002416 


4i/;> 


024020 


001431 


41/_> 


024022 


023727 


4 1 74 


024030 


002441 


4175 


024032 


001444 


4176 


024034 


00O404 


4177 






4178 


C24036 


112 75 7 


4179 


024044 


000443 


4180 






4181 


024046 


10503/ 


4182 


024052 


000440 


4183 






4184 


024054 


132737 


4185 


024062 


001404 


4186 


024064 


112 73 7 


4187 


024072 


0004 30 


4188 


0240 74 


11273/ 


4189 


024102 


000424 


4190 







BR 



14$ 



I 



£ GO DIRECTLY TO THE EXIT "RTS" 



12*: 


CLC 




14$; 


MOV 


CSP)*,R0 




RTS 


PC 



jNORMAL EXIT - MAKE SURE THE ERROR FLAG IS CLEAR 
jRESTORE WORK REGISTERS 



PATGEN •- SUBROUTINE TO GENERATE A TEST DATA BYTE FOR A SPECIFIC ELEMENT 

CALLING SEQUENCE; 

<SET TEST PATTERN CODE IN "TMP2"> 
<SET TEST PATTERN INDEX IN "TMP3"> 
JSR PC, PATGEN 
<NEXT SEQUENCIAL INSTRUCTION 

TEST PATTERN CODES: 

1 -- ALL ONES 

2 - ALL ZEROES 

3 -- 1 BIT ALTERNATING 

4 -- 2 BITS ALTERNATING 

5 -- ADDRESS IN ADDRESS 

6 — INCREMENTAL (INDEX IN ADDRESS) 

THE TEST PATTERN INOEX INDICATES HOW FAR INTO THE TEST PATTERN STRING OF 
BYTES WE ARE. I.E. IT SPECIFIES THE NLHBER OF THE BYTE OF THE WHOLE STRING 
OF BYTES COMPOSING THE COMPLETE TEST PATTERN. 

+ + + +. + +. + + +. + +.* + + + * + + +, + + *+. + *,* + + + + +.+ + * + * + + 4, + * + 4. + + + ** + t + tt + 4. + t + + *t**t* + + mm4 l m 



002444 000002 

002444 000004 

002446 000006 

000377 002450 

002450 

000001 002446 

000125 002450 

000252 002450 



PATGEN: 



1*: 
2$: 
M\ 

20*: 



CMP 
BLT 
BEQ 
CMP 
BLT 
BEQ 
CMP 
BLT 
BEQ 
BR 

MOVB 
BR 

CLRB 
BR 

BITB 

BEQ 

MOVB 

BR 

MOVB 

BR 



TMP2.02 
1$ 

2* 

TMP2.04 

3$ 

4$ 

TMP3.06 

M 

6$ 

2$ 

o*// # TMP4 
60$ 

TMP4 
60$ 

4-1.TMP3 

20$ 

Ol25, TMP4 

60$ 

#252»TMP4 

60$ 



iDECODE THE TEST PATTERN IDENTIFIER 
lO, 1, OH NEGITIVE WILL GIVE "ALL ONES 

12 » "ALL ZEROES" 

1 3 - "1 BIT ALTERNATING" 

{4 - "2 BIT ALTERNATING PATTERN" 

|5 - "ADDRESS IN ADDRESS' 

16 « "INCREMENTAL" (INDEX IN ADDRESS) 

j UNDEFINED - "ALL ZEROES" 

j "ALL ONES" OATA PATTERN 



i "ALL ZEROES" DATA PATTERN 



l"l BIT ALTERNATING" PATTERN 
j IF EVEN, USE "252" 
l If ODD, USE. "125" 
i PATTERN: 10101010 

t PATTERN; OiOKHOl 



J 9 



0100 



CNDHAAO DMVU MCTRL DIAG ti\ MACRO M1200 22-FEB-84 15:22 PAGE 59-4 

TEST 9 ■- LOW RAM (00 -OF) SCRATCHPAD 



SEQ 0113 



4191 
4192 
4193 
4194 
4195 
4196 
4197 
4196 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 



024104 

0.M112 
024114 
024122 
024124 
024132 

024134 
024142 

024144 
024152 

024154 
024160 



132737 
001404 
112737 
000414 
112737 
000410 

113757 
000404 

113737 

000400 

005237 
000207 



000001 002446 4$; 
000063 002450 
000214 002450 22$ 



002464 002450 5$ 



002446 002450 6$ 



002446 



60$ 
62$ 



BITB 

BEQ 

MOVB 

BR 

MOVB 

BR 

MOVB 
BR 

MOVB 
BR 

INC 
RTS 



01.TMP3 

22$ 

00^3, TMP4 

60$ 

4214.TMP4 

60$ 

TMPA,TMP4 
60$ 

TMP3.TMP4 
60$ 

fMP3 
PC 



j "2 BIT ALTERNATING" PATTERN 
j IF EVEN, USE "214 " 
I IF ODD, USE "063" 
j PATTERN: 11001 100 

j PATTERN: OOllOOll 

{"ADDRESS IN ADDRESS" 

I "INCREMENTAL" (INDEX IN ADDRESS) 

{INCREMENT PATTERN INDEX FOR NEXT CALL 



3101 
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T£ST 10 -• DATA RAM MOVING INVERSIONS (LOG'S 0018-01FF HEX) 



i<9 

PAGE 60 



4279 



.SBTTt TEST 10 -- DATA RAM MOVING INVERSIONS (LOC'S 0018-01FF HEX) 

t ************** * **************************************** ****** ************** 

TEST 10 -- DATA RAM MOVING INVERSIONS CLOC'S 0018-01FF HEX) 



GENERAL DESCRIPTION: 

FIRST, THE 2K BYTE LOCATIONS IN RAM ARE LOADED WITH 0' S CSEE NOTE BELOW). 
THEN. THE FIRST LOCATION IS READ AND CHECKED, A SINGLE 1 IS WRITTEN INTO 
THE LOW BIT POSITION, AND THIS IS READ AND CHECKED. THIS IS DONE FQR hLL 
BYTES IN THE RAM, BY INCREMENTING THE ADDRESS TO POINT TO THE NEXT RAM 
LOCATION. 

THEN, THE NEXT BIT POSITION IS CHOSEN TO INSERT A 1, AND ALL LOCATIONS 
ARE READ, WRITTEN, AND READ AS BEFORE. THIS IS CONTINUED FOR ALL BIT 
POSITIONS UNTIL THE ENTIRE RAM IS WRITTEN TO ALL l'S, THE ABOVE OPERATIONS 
ARE PERFORMED A SECOND TIME, WITH 0' S INSERTED INTO THE RAM INSTEAD OF 1»S, 
THIS RESULTS IN THE ENTIRE RAM BEING WRITTEN TO ALL O'S. 

THIS TEST CONSTITUTES A THOROUGH TEST OF THE RAM. IT IS CAPABLE OF 
DETECTING THE FOLLOWING FAULTS : STUCK ADDRESS BITS, UNI- AND BI-DIRECT- 
IONAL COUPLING BETWEEN ADDRESS BITS, STUCK MEMORY BITS, AND UNI- AND 
BI-DIRECTIONAL COUPLING BETWEEN MEMORY BITS IN BOTH ROWS AND COLUMNS OF THE 
MEMORY MATRIX. 

NOTE : 

THIS TEST DOES NOT CHECK LOCATIONS 0010-001F, SO THAT THE PRIMARY CSR'S 

ARE NOT WRITTEN. IT DOES TEST LOCATIONS OOOO-OOOF (SCRATCHPAD RAM) AND 

LOCATIONS 0020-002F (SECONDARY CSR'S), AS WELL AS 0030-0800 (BASIC RAM). 

THE "TMP*" REGISTERS ARE USED HERE TO CONTAIN THE VARIOUS CONSTANTS 6 
VARIABLES USED THROUGHOUT THIS TEST. A LIST OF THEIR ASSIGNMENTS SEEMS 
USEFUL SO HERE IT IS; 



TMPO 
TMPl 
TMP2 
TMP3 
TMP4 



TMP 



z> 



POINTS TO THE FIRST LOCATION AFTER THE SELECT REGISTERS. 

TEST PATTERN ID CODE - UNUSED BY THIS TEST. 

TEST DATA PATTERN INDEX -- UNUSED BY THIS TEST. 

TEST DATA PATTERN. THE HIGH BYTE IS THE PATTERN BEING WRITTEN 
ON ANY GIVEN PASS AND THE LOW BYTE IS THE PATTERN THAT WAS 
WRITTEN BY THE PREVIOUS PASS THROUGH THE RAM. 

DATA READ FROM THE RAM. ONLY THE LOW BYTL IS USED. 



TMP6 

TMP 7 
TMP8 
TMP9 

TMPA 

TMPB 

TMPC 



RAM ADDRESS BEING TESTED. 

BIT POINTER, NUMBER OF THE BIT WITHIN THE DATA FIELD WHICH IS 
BEING SWITCHED ON EACH WRITE WITHIN THE CURRENT PASS. 

DATA FLAG, BIT OF THIS WORD IS THF VALUE TO WHICH THE BIT 



SEQ 0114 



CNOMAAO 
TEST 10 



4280 
4281 
4282 

4283 



4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4 300 
4301 
4 302 
4303 
4 304 
4305 
4306 

4307 



4308 
4 3Q9 

4310 



L9 
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-- C'UA RAM MOVING INVERSIONS (LOG'S 0018 -01FF HEX) 

i* IDENTIFIED IN TMPB IS BEING SET ON EACH WRITE IN THE CURRENT 

I* PASS. 

!* 

5* TMPD DIRECTION SWITCH. - FORWARD NON-ZERO * BACKWARD 

{ + 

5* TMPE LAST VALID ADDRESS TO BE TESTED. (I.E. THE END OF RAM) 

i* 

{♦ TMPF ERROR FLAGS. BIT 1 SET - THE LAST DETECTED ERROR WAS THE READ 
5* OF THE PREVIOUS DATA BEFORE WRITING THE NEW DATA. IF BIT2 IS 

i+ SET, THE READ AFTER WRITE FAILED. IF EITHER IS SET WHEN AN 

;♦ ERROR IS DETECTED, THE SUPERVISOR IS NOT CALL'D AND THEREFOR 

t* IT'S ERROR COUNTER WILL NOT REFLECT THE ERROR -- INSTEAD, THE 

j* DATA LINE IS PRINTED. (UNLESS THE ERROR HANDLER'S DATA LINE 

5* PRINT COUNT HAS EXCEDED ITS LIMIT -- IN WHICH CASE ITS 

j+ INVOCATION IS IGNORED.) 

J + 

! BGNTST 
024162 T10:: 

024162 004737 003762 JSR PC.MSTCLR jINIT DMV fc ENTER M LOOP 

024166 103003 BCC 1$ i IF NO ERROR, PROCEED WITH TESTING 

024170 ERROR {ELSE, REPORT ERROR 

024170 104460 TRAP C*ERROR 

024172 ESCAPE TST } 6 EXIT TEST 

024172 104410 TRAP CSESCAPE 

024174 000744 .WORD L10040-. 

024176 1*: 

,,.,.„...., ACTUAL MOVING INVERSIONS ALGORITHM .«•..*■.■.«.».■»*■-.■«■»■»**»«*« 

I--- •■■• INITIALIZE OUTER LOOP 

024176 012737 000030 00<:440 MOV 424 . , TMPO jINIT. POINTER TO l'ST RAM LOC . AFTER SEL REG'S 

024204 012737 003777 002474 MOV 02047,, TMPE {IDENTIFY LAST ADDRESS TO BE TESTED 

024212 005037 002462 CLR TMP9 

024216 005037 002476 CLR TMPF {ERROR FLAG -- INDICATE NO ERRORS YET 

024222 012737 177777 002470 MOV 0-1, TMPC {DATA - l'S FIRST 

. INITIALIZE THE AREA BEING TESTED BY CLEARING IT TO ZEROES - 

; ZERO OUT LOCATIONS THROUGH 10 (HEX) -- THOSE BELOW THE SELECT REGISTERS 

024230 005037 024244 CLR 3$ {INITIALIZE ADDRESS 

024234 012703 000020 MOV 4Sl.T0.R3 {RAM ADDRESS OF BSELO WILL DO AS BYTE COUNT 

024240 004537 00-4322 2$: JSR R5, WRITE! {ZERO OUT LOC'S — > 10 (HEX) 

024244 000000 3$; .WORD ; ADDRESS 

024246 000000 { DATA 

024250 103003 BCC . *10 { IF NO ERROR, PROCEED 

024252 ERROR {ELSE, REPORT IT 

024252 104460 TRAP C SERROR 

024254 ESCAPE TST j AND EXIT THIS TEST 

024254 104410 TRAP C$ir SCAPE 

024256 000662 .WORD L10040-. 

024260 005237 Q24244 INC 3$ {POINT TQ NEXT LOCATION 

024264 077313 SUB Ri t Zi i IK MURE TO UE DONE, DO IT 



SEQ 0115 



M9 
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TEST 10 -- DATA RAM MOVING INVERSIONS (LOOS 0018-01FT HEX) 



SEQ 0116 



4311 










4312 










4313 


024266 


013737 


002440 


024312 


4314 


024274 


013703 


002474 




4335 


024300 


163703 


002440 




4316 


024304 


005203 






4317 










4318 


024306 


004537 


004322 




4319 


024312 


000000 






4320 


024314 


000000 






4321 


024316 


103003 






4322 


024320 
024320 


104460 






4323 


024322 
024322 
024324 


104410 
000614 






4324 


024326 


005237 


024312 




4325 


024 332 


077313 






4326 


024334 


105037 


002450 




4327 










4326 










4329 










4330 


024340 


005037 


0024 72 




4331 


024344 


005037 


002466 




4332 










4333 










4334 


024350 


005037 


002464 




4335 


024354 


112737 


000001 


002451 


4336 










4337 










4338 










4339 


024362 


000240 






4340 


024364 


000240 






4341 


024366 
024366 


104422 






4342 


024370 


013737 


002*64 


024402 


4343 


024376 


004537 


004064 




4344 


024402 


000000 






4345 


024404 


002452 






4346 


024406 


103003 






4347 


024410 
024410 


104460 






4348 


024412 
024412 
024414 


104410 
000524 






4349 










4 350 










4351 










4 352 


024416 


000240 






4653 


024420 


0002' 






4354 


024422 


123757 


002452 


002450 


4355 


024430 


00142 






4356 


024432 


032?V, 


000006 


002476 


4357 


024440 


0010.10 






4358 


024442 


012737 


000002 


0034 76 


4559 


024450 









ZERO OUT THE REST OF RAM -- ALL LOC'S ABOVE THE SELECT REGISTERS 



4$ 
6$ 



MOV 
MOV 
SUB 
INC 

JSR 

.WORD 



BCC 

ERROR 

ESCAPE 



INC 
SOB 
CLRB 



TMP0,6J 
TMPE.R3 
TMP0.R3 
R3 

R5.WRITEI 



,♦10 
TST 



6$ 

R3,4$ 

TMP4 



{FIRST LOCATION OF TEST AREA (18 HEX) 
j START WITH "LAST ADDR . TO BE TESTED" AND CALC . 
{THE * OF LOCATIONS TO BE TESTED (800-18 (HEX)) 
I (THIS MAKES SURE WE GET EVERY SINGLE BYTE) 

{ZERO OUT THE ALL OF THE TEST AREA 



i IF NO ERROR, PROCEED 
jELSE, REPORT IT 



} 



AND EXIT THIS TEST 



TRAP 

TRAH 
.WORD 



C$ERROR 

C$ESCAPE 
L 10040 -. 



{POINT TO NEXT LOCATION 

;IF MORE TO BE DONE. DO IT 

{THIS IS WHAT WE JUST SET ALL RAM LOCATIONS TO 



BEGINNING OF OUTER LOOP 



8$: 



CLR 
CLR 



CLR 

MOVB 



TMPD 
TMPB 



TMPA 
0BIT0,TMP4*1 



"SET FWD SEQUENCE" (DIRECTION FLAG) 
"SET BIT POSITION - 0" (BIT POINTER) 
"SET ADDRESS • 0" BUT OUR MEMORY STARTS 9 
18 HEX. SO: 

INITIALIZE ADDRESS POINTER 
INITIALIZE CURRENT 6 NEXT DATA BYTES 



"READ CURRENT ADDRESS" 



10$ 



40$ 



NOP 
NOP 
BREAK 

MOV 
JSR 


TMP5 

BCC 

ERROR 



TMPA, 40$ 
R5.READ 



.♦10 



;FIRST SEE IF A *C HAS BEEN STRUCK BY OPERATOR 

TRAP C$BRK 
;N0, PUT ADDRESS INTO READ CALL 
jGO READ ONE LOCATION 
;♦♦♦♦ MODIFIED ABOVE ***+ (ADDRESS) 
{ADDRESS OF DATA READ 
j IF NO ERROR, PROCEED 
lELSE, REPORT IT 



ESCAPE TST 



J 



AND EXIT THIS TEST 



TRAP 

TRAP 

.WORD 



C$ERROR 

CSESCAPE 
L 10040 - , 



I CHECK DATA (FIRST TIME) 



NOP 

NOP 

CMPB 

BEQ 

BIT 

BNF 

MOV 

GEDF 



TMP5.TMP4 {CHECK AGAINST EXPECTED DATA 

121 {IF OK, PROCEED 

<?BIT1*BIT2,TMPF jNO. HAS AN ERROR ALREADY BEEN REPORTED? 

42$ {YES. JUST PRINT DATA IF WANTED 

0BIT1.TMPF {NO, SET FLAG FOR NEXT TIME 

EM48A.ERR48 i AND PRINT COMPLfTF. ERROR MESSAGE 

j "DEVICE FATAL" ERROR <> 25 



O104 



N9 

CNDMAAO DMV11 MCTRL DIAG #1 MACRO M1200 22-FEB-84 15:22 PAGE 60-3 
TEST 10 -- DATA RAM MOVING INVERSIONS (LOC'S 0018-01FF HEX) 



SEQ 0117 



4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 

4372 



4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 

4382 



4383 
4384 
4385 
4 586 
4387 
4388 
4389 
4390 
4391 
4392 
4393 



024450 
024452 
024454 
024456 
024460 
024462 
024470 



024474 
024502 
024506 
024510 
024512 
024514 
024514 
024516 
024516 
024520 



024522 
024530 
024534 
024536 
024540 
024542 
024542 
024544 
024544 
024546 



4 394 
^395 
4 396 

4397 
4 398 
4 399 
4400 
4401 



024550 
024552 
024554 
024562 
024564 
024572 
024574 
024602 

024602 
024604 
C24606 
074610 
024612 

024614 
024622 



104455 
000031 
016016 
007632 
000405 
012737 
004 737 



013737 
004537 
OOOOOO 
002451 
103003 

104460 

104410 
000420 



013737 
004537 
OOOOOO 
002452 
103003 

104460 
104410 



000240 
000240 
123737 
001421 
032737 
001010 
01273? 



104455 
O0OC32 
016O16 
00763c' 
0004C5 

012 737 
004737 



000002 
010030 



002464 
004310 



002476 42$ 



02450b 12$ 

44$ 



002464 
004064 



024534 



46$ 



002451 
00000* 
000004 



002452 
0024 76 
002476 



000004 
010030 



02'" 626 '" v.)240 



00247G 48$ 



14$ 



BR 

MOV 

JSR 



12$ 

4BIT1.TMPF 
PC.ERR4G. 

WRITE NEW DATA 



MOV 

JSR 

.WORD 

TMP4*1 

BCC 

ERROR 



TMPA,44$ 

R5, WRITE 


.♦10 



ESCAPE TST 



TRAP C$ERDF 
.WORD 25 
.WORD EM48A 
.WORD ERR48 
{PROCEED WITH TESTING 
j INDICATE A "PRE" WRITE ERROR 
j USE ERROR HANDLER ONLY -- NO HEADER 



{GET THIS ADDRESS FOR THIS WRITE CALL 
{WRITE THE UPDATED DATA IN THIS LOCATION 

{NEW DATA ELEMENT RESIDES IN TMPD*1 

j IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP C$ERROR 

j AND EXIT THIS TEST 

TRAP C$ESCAPE 
.WORD L10040-. 



RE-"R(":AD CURRENT ADDRESS" 



MOV 

JSR 

.WORD 

TMP5 

BCC 

ERROR 



TMPA,46$ 

R5»READ 



.+10 



ESCAPE TST 



{GET ADDRESS FOR THIS READ 
{READ DATA JUST WRITTEN 



{IF NO ESROR, PROCEED 
;ELSE, REPORT IT 

s AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



C$ERROR 

CIESCAPE 

L 10040 -, 



CHECK NEW DATA VALUE 



KOP 
NOP 

CMPB 

BEQ 

BIT 

BNE 

MOV 

GEUF 



TMP<ni,THP5 
14$ 

SBtfi»RIT2 THPF 
48 • 

EM48A.LRR4tt 



iDID THE WRITE WORK CORRECTLY? 

j YES. PROCEED WITH TESTING 

{NO. HAS AN ERROR ALREADY BEEN REPORTED? 

jrES, ONLY USE ERROR HANDLER -- NO HEADER PLEASE 

iNU. INDICATE THAT WE'RE PRINTING A HEADER HERE 

{REPORT RE -WRITE ERROR 

j "DEVICE FATAL" ERROR tf 



BR 

MOV 
JSR 



NOP 



14 I 

0BIT2, TMPF 
PC.ERR48. 



{PROCFED WITH TFS1 ING 



2b 

TRAP 
.U03D 

.WORD 
.WORD 



CSERDf 
26 

EM48A 
ERR48 



{INDICATE A "POSt 
{JUST REPORT DATA 



WRITE ERROR 
- NO HEADER 



•FORUIARD SEQUENCE V" 



05 



BIO 
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SEQ 0U8 



4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

44U 

4412 

4413 

4414 

4415 

4416 

441 / 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

44 30 

4431 

4432 

4433 

4454 

4435 

44 36 

4437 

44 38 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

445 7 

AA5& 



024630 
024634 



024636 
024640 
024646 
024650 



024654 
024662 
024664 

024672 
024674 



024676 
024700 
024 704 
024 712 
024714 
024 720 
024 724 
024 732 
024 736 
024 740 
024 744 



024750 
024 752 
024 756 
024 762 
024 764 
024770 



024 / 12 
024 774 
025000 
025002 



025006 
025014 
025016 



005737 002472 
001056 



000240 

0237^7 002464 002474 

001413 

005237 002464 



022737 
101237 
023737 
101633 
000765 



000240 
005037 
023727 
002016 
005237 
005037 
113737 
013700 
006000 
106137 
000137 



000240 
005037 
005137 
001756 
005137 
000755 



000240 

005737 
001413 
005337 



000020 002464 
002440 002464 



010024 

002466 000007 

002466 
002464 

002451 002450 
0024 70 

002451 
024362 



002466 

0024 70 



0024 72 



002464 
002464 



022 7 37 0000,>0 C02464 
101031 

023 73 7 Q02440 QQ2464 
IQ1A25 



TST 
BNE 



Tt'iPO 
26$ 



iCHECK DIRECTION • • FORWARD 
iREVERSE ■--> PROCESS REVERSE ADDRESSING 
j FORWARD 



, PROCESS FORWARD SEQUENCE -- "LAST ADDRESS" 



16$; 



50$; 



NOP 
CHP 
BEQ 
INC 



TMPA.TMPE 

18$ 

TMPA 



iWAS THIS ADDK. THE LAST 
l YES, T HEN CHECK THE BIT 
I NO, . -IEN INCREMENT THE 



ONE? 

POSITION 

ADDR, 



HERE WE MAKE SL*E THE ADDRESS IS NOT WITHIN THE SELECT REGISTER AREA. IF IT 
IS, WE WON'T USE IT - - BUT GO BACK ANO DECREMENT TO THE NEXT ADDRESS AGAIN. 



511s 



CMP 
BHI 
CMP 

Bl 0' 
HH 



0SLTO.TMPA 

10$ 

TMPO,TMPA 

10$ 

50$ 



lIS IT BELOW THE AREA WE CAN' T CHECK? 
I YES, THEN WE CAN CHECK THIS LOCATION 
j IS IT BELOW THE BOTTOM ADDRESS? 
iNO, TEST THIS LOCATION 
I YES, PERFORM THE INCREMENT AGAIN 



DO IT 



"FWD" SEQUENCE •* "LAST BIT POSITION?" 



18${ 



24$; 

57$; 



55$; 
I - - - 



NOP 

CLR 

CMP 

BGE 

INC 

CLR 

MOVB 

MOV 

ROR 

ROLB 

JMP 



20$; 



NOP 
CLR 
COM 
BEQ 
COM 
BR 



ER48CT 

TMP0,07 

20$ 

TMPC 

TMPA 

TMP4*1.TMP4 

TMPC.RO 

RO 

TMP4*1 

10$ 

"FWD" SEQUENCE 



TMPB 
TMPC 
24$ 

TMPD 
57$ 

"BKWD" SEQUENCE 



»RESET ERROR PRINT COUNT 

jOID WE JUST PROCESS THE LAST BIT POSITION? 

»YES, THEN WERE WE DOING l'S OR O'S 

iNO, THEM INCREMENT THE BIT COUNTER 

|RE INITIALIZE ADDRESS POINTER 

lUSE "NEXT" OATA AS "CURRENT" DATA 

|USE ONE BIT OF THE. "DATA" SWITCH TO 



iBUILD 



A NEW "NEXT 
L TEST IT 



DATA VALUE 



"DATA • 1? 



iPOINT TO BIT 0, 
ISWITCH DATA. IF l'S, 
I IF WENT TO FORWARD, , 
iSWITCH DIRECTION 
lELSE, BACKWARD,, , . , 

"ADDRESS -0?" 



DO O'Sj IF 0' S DO 1 b 



26$ 

02$ 

J 
I 



NOP 
TST 
BEQ 
DEC 

HERE WE MAKE 



IS I WF WON' T 



TMPA 

28$ 

TMPA 

SURE THE 
USF IT 



(HAVE WE JUST PROCESSED THE FIRST ADDRESS? 
|YES, CHECK BIT POSITION 
iNO, DETREMENT THE ADDRESS 



ADDRESS 
BUT GO 



S6$i 



CMP 
BHI 
CMP 
BLQS 



0SI TO, TMPA 

58$ 

TMPQJMPA 

sat 



IS NOT UITHIN THE SELECT REGISTER AREA 
BACK ANO DECREMENT TO THE NEXT ADDRESS 

lIS IT BELOW THE AREA WE CAN'T CHECK. 
)>ES, THEN WE CAN CHECK THIS LOCATION - 
lIS IT BElQW THfc BOTTOM ADDRESS? 
iNU, TEST THIS LOCATION 



ALAIN 



00 it 



06 



CIO 
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TEST 10 DATA RAM MOVING INVERSIONS (LOG'S 0018 -01FF HEX) 



4459 
4460 
44bl 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
44 73 
4474 
44 75 
44 76 
4477 
4478 
4479 
4430 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 

"492 



4495 
4494 



025026 000765 



025030 
025032 
025036 
025044 
025046 
025052 
025060 
025064 
025066 
025072 
025100 



025104 
025106 
025112 
025114 
025120 



025122 
025124 
025130 
025132 
025134 
025136 
025136 
025140 
025140 
025X40 



000240 
005037 
022737 
003417 
005237 
113737 
013700 
006000 
106137 
01373"' 
000137 



000240 

005137 
001003 
005037 
000754 



000240 
004537 
000173 
000000 
3 03001 

104460 



104401 



BR 



010024 
000007 

002466 
002451 
OO24 70 



28*} 



002450 29*5 



002451 

0024 74 002464 

024362 



0024 70 
002466 



58$ j 



NOP 

CLR 

CMP 

BLE 

INC 

MOVB 

MOV 

ROR 

ROLB 

MOV 

JMP 



30$: 



NOP 
COM 
BNE 
CLR 
BR 



52$ 
"BKUD" SEQUENCE 



ER48CT 

«7.TMPB 

30$ 

TMPB 

TMP4*1,TMP4 

TMPC.RO 

RO 

TMP4»1 

TMPE.TMPA 

10$ 

"BKWD" SEQUENCE 



TMPC 
32$ 
TMPB 
29$ 



l 



'STOP" 



004322 



32$; NOP 

38$? JSR R5.WRITEI 

173 



BCC ,»4 

ERROR 

fcNDTST 



SEQ 0119 



I YES, PERFORM T HE DECREMENT AGAIN 
"LAST BIT POSITION" 



»REStT ERROR PRINT COUNT 

lLAST BIT P0SITI0N7 

l YES, CHECK DATA 

»N0, INCREMENT BIT POINTER, 

lUSE "NEXT" DATA AS "CURRENT" DATA 

jUSE ONE BIT Of" THE "DATA" SWITCH TO 

jBUILD A NEW "NEXT" DATA VALUE 

I POINT TO LAST ADDRESS AGAIN, 

I 6 TEST IT 



"DATA * 1?" 



jSWITCH DATA TYPE 

I NOW l'S -■ CHECK ADDHESS'S "LSB" 

jNOW O'S - POINT TO BIT POSITION AGAIN 

i RESET ADDRESS C TEST IT 



iCLEAR RAM LOCATION 0063 (HEX) 6 EXIT 
i (THIS CONVERTS TO 00B3 HEX.) 

i (THIS WE HOPE, 

I IF NO ERROR, PROCEED 
lELSE, REPORT IT 



WILL CLEAR IT) 



iTHATS All FOLKS! 



L 10040: 



TRAP 



TRAP 



CiERROR 



CSETST 



I ■ a ■ ■ ■MrHIIMlKKI|<IKMilllll«NIXlllll>III«llllllMI>IISil»)llHI|8l(lMlltiltl!lll1Ulll 

.EVEN 



CNDMAAO DMVil MCTRl. DIAG *t MACRO 
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4520 



4521 
4522 
4523 

4524 
4525 
4526 
4527 
4528 
4529 
4530 

4531 
4532 
4533 
4534 
4535 
4536 

4537 
4538 
4539 
4540 
4541 
4542 
4543 



025142 
025142 
025146 
025150 
025150 
025152 

025154 
025160 
025162 
025164 
025166 
025166 
025170 
025172 
025176 
025200 
025202 
025204 
025204 
025206 



025210 
025214 



004737 
103002 

104460 
000546 

004537 
1200O6 
000000 
103002 

104460 
000537 
004537 
120007 

000000 
103002 

104460 
000530 



013/03 
012702 



003762 



004322 



004322 



002556 
002560 



D10 
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.SBTTL TEST U -- VIA REGISTER ADRESSING 

* ********************** 4 **«***4************************** + ******+****^**** + ** 

TEST 11 -- VIA REGISTER ADRESSING 

VIA ■• "6522 VERSATILE INTERFACE ADAPTER" 

A MASTER CLEAR IS PERFORMED, NEXT, TIMER 1 LATCHES 
ARE CLEARED BY WRITING 000 INTO VIA REGS 6 6 7 

THEN, 377 IS LOADED INTO DATA DIRECTION REGISTERS A, B (DDRA.DDRB) TO 
SET THE PORT PINS FOR OUTPUT MODE. 

THEN, A DIFFERENT BYTE OF DATA PATTERN C IS WRITTEN INTO EACH VIA 
LOCATION, (EXCEPT THE TIMER REGS 4,5,10,11 OCT) AND AFTER EACH IS WRITTEN, 
ALL VIA REGS (EXCEPT 4,5,10,11) ARE READ ANO COMPARED TO EXPECTED 
CONTENTS. NOTE THAT SOME VIA REGS ARE ALTERED BY THE LOADING OF OTHERS. 
ANO THE PROGRAM TAKES THIS INTO ACCOUNT, IN THE SETTING OF EXPECTED REG 
VALUES. THE DATA PATTERN IS CHOSEN TO AVOID ACTIVATING THE VIA CHIP (SUCH 
AS GENERATING OUTPUTS ON CA1, CA2 . CB1. CB2, OR CAUSING 6502 
INTERRUPT REQUESTS). 
DATA PATTERN C (WITH VIA REGS ANO THEIR DATA SHOWN IN OCTAL) : 
REGISTER - 00 01 02 03 06 07 12 13 14 15 16 17 
DATA - 100, 101, 377, 377, 106, 107, 112, 040, 042, 000, 200, 117 
NEXT. 000 IS LOADED INTO DDRA, ANO ODRB IS READ ANO COMPARED TO 377. THEN 
THE 377 IS LOADED BACK INTO DDRA, AND DDRB IS LOADED WITH 000 ANO DDRA IS 
READ ANO COMPARED TO 377. 

.**************** ****** **************************** ******+ ****************** 

BGNTST 

Til: : 

iINIT DMV ANO START UP THE MAINT , LOOP 
I IF NO ERROR, PROCEED 
lELSE, REPORT IT ANO 



SEQ 0120 



1$: 



301 



JSR 


PC.MSTCLR 


BCC 


1$ 


ERROR 




BR 


251 


JSR 


R5.WRITE1 


TILL 









BCC 


30$ 


ERROR 




BR 


25$ 


JSR 


R5.WRITEI 


T1LH 









BCC 


31$ 


ERROR 





; EXIT THIS CLEAR 
.CLEAR THE TIMER 1 LATCHES 



I IF AN ERROR OCCURED, 
jREPORT IT £ 



TRAP 



C$ERROR 



BR 



25$ 



t EXIT 



j IF AN ERROR OCCURED, 
jREPORT IT € 

j EXIT 



TRAP 



C$ERROR 



TRAP 



C5ERR0R 



t LOAD UP THE VIA'S REGISTERS WITH THE FIXED DATA STREAM OF PATTERN "C" 



31$; MOV PATC.R3 

MOV 0PATC*2»R2 



l GET COUNI Of Of WRITES TO BE PERFORMED 
tSETUP POINTER TO REGISTER ADDRESSES £ OATA 
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SEQ 0121 



4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 

4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4S66 
4567 

4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 



025220 
025226 
025232 

025236 
025242 
025244 

025246 
025250 
025250 
025252 
025254 



025256 
025262 
025270 

025276 
025302 
025304 
025306 
025310 
025310 
025312 

025314 
025320 
025324 



025326 
025332 
025336 
025342 
025346 
025352 

025356 
025360 
025362 
025364 
025366 
025370 
025374 

025376 
025402 
025404 

025404 
025406 

025410 

Q25412 



012737 120000 025242 
152237 025242 
112237 025244 

004537 004322 

000000 

OOOOOO 

103002 

104460 
000506 
077317 



2*; 



4*j 
5$: 



32*; 



MOV 

BISB 

MOVB 

JSR 





BCC 
ERROR 

BR 
SOB 



0ORB,4* 

(R2)*,4$ 

(R2)*,5$ 

R5.WRITEI 



32$ 



25$ 
R3,2* 



j READ BACK THE VIA' S REGISTERS 



012703 
012737 
012737 

004537 
OOOOOO 
OOOOOO 
103002 

104460 
000466 

005237 
00523 7 
07731** 



012701 
012702 
012704 
012705 
012703 
005037 

012114 
012200 
074014 
042524 
001402 
005237 
077310 

005737 
001406 



104455 
000033 
015243 
QQ56.5Q 



000020 

120000 025302 

003122 025304 

004064 



6$ 
7* 
8$ 



025302 
025304 



002604 
003122 
003206 
002624 
OOOOIO 
002332 



33$; 



MOV 
MOV 
MOV 

JSR 


BCC 

ERROR 

BR 

INC 
INC 
SOB 



0PATCM-PATCR.R3 

*>0RB,7I 

0BT1.8I 

R5.READ 
33$ 

25$ 

7$ 
8$ 

R3,6$ 



002332 
002332 



I CHECK THE VALUES READ AGAINST 

MOV *PATCR.R1 

MOV 4BT1.R2 

MOV 0BT2.R4 

MOV 0PATCM,R5 

MOV *8.,R3 

CLR ERRFLG 

9$: MOV (R1)»,(R4) 

MOV (R2)*.R0 

XOR R0.CR4) 

BIC (R5)*,(R4)* 

BEQ 10$ 

INC ERRFlG 

10$ l SOB R3,9$ 

TST ERRFLG 

BEQ 12$ 

GEDF EM20.ERR6 



lADDRESS OF FIRST REGISTER 

jOR IN REGISTER TO BUILD REGISTER ADDRESS 

I THIS IS THE DATA WE WANT TO WRITE 

iWRITE ONE REGISTER WITH THE DESIRED DATA 

j*** MODIFIED FROM ABOVE **♦ DESTINATION ADDR. 

;*** MODIFIED FROM ABOVE *** DATA 

j IF AN ERROR OCCURED, 
jREPORT IT £ 

TRAP C$ERROR 
I EXIT 
I LOOP UNTIL THE WHOLE TABLE HAS BEEN WRITTEN 



GET COUNT OF OF REG'S TO BE READ 
ADDRESS OF FIRST REGISTER 
DESTINATION BUFFER AREA 

READ ONE REGISTER 

*** MODIFIED FROM ABOVE ♦♦♦ SOURCE ADDRESS 

♦** MODIFIED IN LINE **+ DESTINATION ADDRESS 

IF AN ERROR OCCURED, 

REPORT IT & 

TRAP C$ERROR 
EXIT 

POINT TO NEXT REGISTER 

POINT TO NEXT BUFFER LOCATION 

LOOP UNTIL ALL REGISTERS HAVE BEEN READ 

HE EXPECTED VALUES 

POINTER TO EXPECTEO DATA VALUES 
POINTER TO DATA READ 
POINTER TO "XOR" VALUES 
POINTER TO "MASK" VALUES 
NUMBER OF WORDS TO BE PROCESSED 
RESET THE ERROR FLAG 

GET EXPECTED VALUE (2 BYTES AT A TIME) 

GET ACTUAL VALUE AND SETUP FOR "XOR" 

DEVELOPE "XOR" 

CLEAR THOSE BITS WE DON'T CARE ABOUT 

IF NO ERROR, SKIP NEXT INSTRUCTION 

IF ERROR, SET FLAG TO SAY SO! 

LOOP UNTIL ALL VALUES CHECKED 

WAS THERE AN ERROR DETECTED? 

NO, PROCEED WITH TESTING 

YES, REPORT A VIA REGXSTER ERROR 

"DEVICE FATAL" ERROR * 27 

TRAP CJFRDF 

.WORD V- 
. WORD EM20 
,WQRD ERR6 



0109 
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4594 


025414 








ESCAPE 


TST 




025414 


104410 












025416 


000344 










4595 














4596 














4597 














4598 


025420 


004537 


004176 


12$: 


JSR 


R5.REA0I 


4599 


025424 


120003 






DORA 




4600 


025426 


000000 




15*: 







4601 


025430 


103002 






BCC 


34$ 


4602 


025432 
025432 


104460 






ERROR 




4603 


025434 


000415 






BR 


25$ 


4604 


025436 


004537 


004322 


34$ s 


JSR 


R5,WRITEI 


4605 


025442 


120002 






DDRB 




4606 


025444 


000000 











4607 


025446 


103002 






BCC 


35$ 


4608 


025450 
025450 


104460 






ERROR 




4609 


025452 


000406 






BR 


25$ 


4610 


025454 


004537 


004064 


35$: 


JSR 


R5.READ 


4611 


025460 


120002 






DDRB 




4612 


025462 


002312 






BDATA 




4613 


025464 


103002 






BCC 


36$ 


4614 


025466 
025466 


104460 






ERROR 




4615 


025470 


000534 




25$: 


BR 


24$ 


4616 


025472 


105737 


002312 


36$: 


TSTB 


BDATA 


4617 


025476 


001413 






BEQ 


14$ 


4618 


025500 


105037 


002310 




CLRB 


GDATA 


4619 


025504 


012737 


000002 


002334 


MOV 


#2.rec;num 


4620 


025512 

025512 
025514 
025516 
025520 


104455 
000034 
015442 
006612 






GEDF 


EM21.ERR7 


4621 


025522 
025522 
025524 


104410 
000236 






ESCAPE 


TST 


4622 














4623 


025526 


113737 


025426 


002310 3.4$: 


MOVB 


15$,GDATA 


4624 


025534 


004537 


004064 




JSR 


R5,READ 


4625 


025540 


120003 






DDRA 




4626 


025542 


002312 






BDATA 




4627 


025544 


103002 






BCC 


37$ 


4628 


025546 
025546 


104460 






ERROR 




4629 


025550 


000504 






BR 


24$ 


4630 


025552 


123737 


002310 


002312 37$: 


CHPB 


GDATA, BDATA 


4631 


025560 


001411 






BEQ 


16$ 


4632 


025562 


012737 


000003 


002334 


MOV 


03.REGNUM 


4633 


0255 70 

025570 
025572 
025574 


104455 
000035 
015477 






GEDF 


EM22.ERR7 



SEQ 0122 



lEXIT FROM THIS TEST -- 



LOOP IF REQUESTED 

TRAP C$ESCAPE 
.WORD L10041-. 



GET THE CURRENT VALUE OF THE VIA' S 

"DDRA" REGISTER FOR LATER ERROR CHECKING 



IF AN ERROR OCCURED 
REPORT IT € 

EXIT 
LOAD DDRB WITH 000 



IF AN ERROP OCCURED, 
REPORT IT 6 

EXIT 
READ IT BACK AND CHECK IT 



TRAP 



C$ERROR 



TRAP 



C$ERROR 



IF AN ERROR OCCURED, 

REPORT IT 6 

TRAP 
EXIT 

THIS SHOULD NOU BE ZERO 

IT IS. PRECEDE TESTING 

IT ISN'T! SETUP FOR £ REPOHT ERROR 

IDENTIFY THE DDRB REG. 
REPORT ERROR 
"DEVICE FATAL" ERROR 



jEXIT FROM THIS TEST -- 



j THIS IS WHAT UE EXPECT TO READ NOW 
tREAD BACK DDRA -- IT SHOULD BE ■ 366 



,IF AN ERROR OCCURED, 
j REPORT IT £ 

j EXIT 

I IS IT REALLY A 377? 

jYES, PROCEED WITH TESTING 

j IDENTIFY THE DDRA REG. 

} N0, REPORT ERROR 

j "DEVICE FATAL" ERROR 



C$ERROR 



RROR $ 28 




TRAP 


C$ERDF 


.WORD 


28 


.WORD 


EM21 


.WORD 


ERR7 


LOOP IF REQUESTED 


TRAP 


CtESCAPE 


.WORD 


L10041-, 



TRAP 



CSERROR 



29 




TRAP 


C$EROF 


.WORD 


29 


.WORD 


LM22 



0110 



G1.0 
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025576 


006612 




4634 025600 






025600 


104410 




025602 


000160 




4635 






4656 025604 


004537 


004322 


4637 025610 


120002 




4638 025612 


177777 




4639 025614 


103002 




4640 025616 






025616 


104460 




4641 025620 


000460 




4642 025622 


004537 


004322 


4643 025626 


120003 




4644 025630 


000000 




4645 025632 


103002 




4646 025634 






025634 


104460 




464 7 025636 


000451 




4648 






4649 025640 


004537 


004064 


4650 025644 


120003 




4651 025646 


002312 




4652 025650 


105737 


002312 


4653 025654 


001413 




4654 025656 


105037 


002310 


4655 025662 


012737 


000003 002334 


4656 025670 






025670 


104455 




025672 


000036 




025674 


015442 




025676 


006612 




4657 025700 






025700 


104410 




025702 


000060 




4658 






4659 025704 


004537 


004064 


4660 025710 


120002 




4661 025712 


002312 




4662 025714 


103002 




4663 025716 






025716 


104460 




4664 025720 


0OO420 




4665 025722 


123737 


002312 025612 


4666 025730 


001414 




466 7 025732 


113737 


025612 002310 


4668 025740 


012737 


000002 002334 


4669 025746 






025746 


1044S5 




025750 


000037 




0257-2 


015532 




025754 


006612 




4670 025756 






025/56 


104410 




025760 


000002 







ESCAPE 


TST 


165: 


JSR 
DDRB 


R5.WRITEI 


17$; 


-1 






BCC 


38$ 




ERROR 






BR 


24$ 


38$; 


JSR 

DDRA 




R5.WRITEI 




BCC 


39$ 




ERROR 






BR 


24$ 


39$; 


JSR 

DDRA 

BDATA 


R5.READ 




TSTB 


BDATA 




BEQ 


18$ 




CURB 


GDATA 




MOV 


*3,REGNUM 




GEDF 


EM21.ERR7 



13$ 



40$ 



ESCAPE 


TST 


JSR 


R5.READ 


DDRB 




BDATA 




BCC 


40$ 


ERROR 




BR 


24$ 


CMPB 


BDATA, 17$ 


BEQ 


24$ 


MCVB 


17$, GDATA 


MOV 


02.RFGNUM 


GEDF 


EM22A.ERR7 



ESCAPE TST 



SEQ 0123 



{EXIT FROM THIS TEST 



jRE-LOAD DDRB WITH 377 



.WORD ERR7 
LOOP IF REQUESTED 

TRAP C$ESCAPE 
.WORD L10041-. 



TRAP 



C$ERROR 



TRAP 



C$ERROR 



; IF AN ERROR OCCURED, 
{REPORT IT 6 

j EXIT 

i AND NOW CLEAR DDRA TO ZEROS 



I IF AN ERROR OCCURED, 
jREPORT IT 6 

; EXIT 

j NOW, DID DDRA GO TO ZEROES 



iiF.S, BUT WHAT ABOUT DDRB? 

j NO. SETUP FOR AND 

{IDENTIFY THE DDRA REG. 

i REPORT THE ERROR 

! "DEVICE FATAL" ERROR 30 

TRAP C$ERDF 
.WORD 30 
.WORD EM21 
WORD ERR 7 

{EXIT FROM THIS TEST -- LOOP IF REQUESTED 

TRAP CIESCAPE 
.WORD L10041-. 



{WHAT ABOUT DDRB 



IT SHOULD BE 377 NOW 



•IF AN ERROR OCCURED, 
{REPORT IT 6 



TRAP 



C5ERR0R 



{ EXIT 






iIS IT? 






{YES, EXIT TEST 






;N0, SETUP FOR AND 






{IDENTIFY THE DDRB REG. 






{ REPORT ERROR 






i "DEVICE FATAL" ERROR 


31 






TRAP 


Cft'RDK 




.WORD 


31 




.WORD 


EM.VA 




.WORD 


ERR/ 


{EXIT FROM THIS TEST -- LOOP 


IF RE QUE ^ 


TED 




TRAP 


CttsCAPt 




.WORD 


1.10041 • . 



0111 
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SEQ 0124 



4671 

4672 025762 
025762 
02!3762 



24i; 



ENDTST 



104401 



L10041: 



TRAP 



C5ETST 
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4685 
4686 
468 7 

4688 



4689 
4690 
4691 
469? 
4695 
4694 



4695 
4696 
4697 
4698 
4699 
4700 
4701 

4 702 



4 70S 
4 704 



4 70b 
4/06 
4 707 
4 708 
4 709 



025764 
025764 
02577C 
025772 
025772 
025774 
025 7 74 
025776 

026COO 
026004 

026006 
026006 
026006 
026006 

026010 
026014 
026020 
026024 
026030 
026052 
026052 
026034 
026054 
026036 

026040 
026040 
026040 

026042 



026044 
026044 
026044 



004 757 003762 
103003 

104460 

104410 
000046 

012701 002526 
012103 



104402 

111137 002306 

112137 002310 

012700 120002 

004 737 005034 
103003 

104460 

104410 
000006 



104403 
077317 

104401 



.SBTTL TEST 12 



VIA'S DDRB DATA READ/WRITF 



{ + 

1 + TEST 12 -- VIA'S DDRB DATA READ/WRITE 

»♦ 

j* DDRB -- "DATA DIRECTION REGISTER B" 

j* FIRST, A MASTER CLEAR IS PERFORMED. THEN : 

s* READ/URITE BITS 0-7 OF VIA DATA DIRECTION REGISTER B ARE TESTED BY WRITING, 

;* READING, AND COMPARING EACH BYTE OF DATA PATTERN B. 

} * DATA PATTERN B - 125, 252, 000, 377, 001, 002, 004, 010, 020, 040, 100, 

j* 200, 376, 375, 573, 367, 357, 337. 277. 177, 000 

i + 

' - -* + *4.t + * * + ***. i******** A*****.**. A*********** 4.**** + + +** + * + * + + ****** + & + **** + *+*,*, 

J 



30*: 
T12.LP: 



10$ 



BGNTST 

JSR 
BCC 
ERROR 



MOV 
MOV 



BGNSU6 



SOB 
ENDTST 



PCMSTCLR 
30* 



ESCAPE TST 



0PATB.R1 
(Rl)*.R3 



MOVB 


CRD.TDATA 


MOVB 


(R1)*,GDATA 


MOV 


OODRB.RO 


JSR 


PCSTREG 


BCC 


10* 


ERROR 





ESCAPE TST 



ENDSUB 



R3.U2.lP 



T12: : 

jINIT DMV L START UP THE MAINT. LOOP 
I IF AN ERROR OCCURED, 
tREPORT IT 6 



I 



EXIT 



TRAP 

TRAP 
.WORD 



C*ERROR 

C*ESCAPE 
L10042-. 



(POINT TO PATTERN TABLE 
(GET OF ENTRIES IN TABLE 



j THE SUBTEST ONLY TESTS THE ONE PATTERN 

T12.1: 

TRAP C*BSUB 

jSETUP TEST DATA BYTE FOR "STREG" 

{SETUP EXPECTED DATA BYTE FOR "STREG" 

(SPECIFY THE REGISTER BEING TESTED 

(PERFORM STATIC TEST OF THE SPECIFIED REGISTER 

jWAS AN ERROR FOUND? 

} YES, REPORT IT AND 

TRAP C*ERRQR 

; EXIT FROM THE TEST, "CKLOOP" IS IMPLIED 

TRAP CSESCAPE 
.WORD L 10042 -. 



SEQ 012! 



L 10043 t 



TRAP 



CSESUB 



jIF THERE IS IN FACT MORE DATA, LOOP BACK TO 
I TEST IT, ELSE, FALL OUT OF LOOP AND TEST 



L 10042s 



TRAP 



csersT 
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SEQ 0126 





026046 






4723 


026046 


004737 


003762 


4724 


026052 


103003 




4725 


026054 








026054 


104460 




4726 


026056 








026056 


104410 






026060 


000046 




4727 








4728 


026062 


012701 


002526 


4729 


026066 


012103 




4730 








4731 


0260 70 






4732 


026070 
026070 








026070 


104402 




4733 








4 734 


026072 


111137 


002306 


4735 


026076 


112137 


002310 


4736 


026102 


012700 


120003 


4737 


026106 


004737 


005034 


4738 


026112 


103003 




4739 


026114 








026114 


104460 




4740 


026116 








026116 


104410 






026120 


000006 




4741 








4742 


026122 
026122 








026122 


104403 




4743 








4/44 


026124 


077317 




4745 








4746 








4747 


026126 

026126 
026126 


104401 





,SBTTL TEST 13 -- VIA' S DDRA DATA READ/WRITE 

J* 

j* TEST 13 -- VIA'S DDRA DATA READ/WRITE 

J* 

;* DDRA «» "DATA DIRECTION REGISTER A" 

{* 

j* FIRST, A MASTER CLEAR IS PERFORMED. THEN : 

j* READ/WRITE BITS 0-7 OF VIA DATA DIRECTION REGISTER A ARE TESTED BY WRITING, 

;♦ READING, AND COMPARING EACH BYTE OF DATA PATTERN B. 

;* DATA PATTERN B - 125, 252, 000, 377. 001, 002, 004, 010, 020, 040, 100, 

} * 200, 376, 375, 373, 367, 357, 337, 277, 177, 000 

5* 

I --±± + *±+±t + + + ±±± + + +**** + +,* + + + **+, + + + $ + +* + *,+ +,±* + +.±±+.+.±+. + ± + *+.±±*4, + 'l+±*.±±*,± + + it + 



30$ 5 
T13.LP; 



XO*i 



BGNTST 

JSR 
BCC 
ERROR 



MOV 
MOV 



BGNSU6 



M0V8 

MOVB 

MOV 

JSR 

BCC 

ERROR 



SOB 
ENQTST 



PC.MSTCLR 
30$ 



ESCAPE TST 



0PATB.R1 
(Rl)» ,R3 



(Rl).TDATA 

(R1)»,GDATA 

$DDRA,R0 

PC.STREG 

10$ 



ESCAPE TST 



ENDSUB 



R3,U3»LP 



T13:: 
jINIT DMV £ START UP THE MAINT, LOOP 
{IF AN ERROR OCCURED, 
iREPORT IT 6 



EXIT 



{POINT TO PATTERN TABLE 
jGET OF ENTRIES IN TABLE 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$ESCAPE 
L1O044-. 



I THE SUBTEST ONLY TESTS THE ONE PATTERN 

T13.1: 

TRAP C$BSUB 

{SETUP TEST DATA BYTE FOR "STREG" 

{SETUP EXPECTED DATA BYTE FOR "STREG 11 

{SPECIFY THE REGISTER BEING TESTED 

{PERFORM STATIC TEST OF THE SPECIFIED REGISTER 

{WAS AN ERROR FOUND? 

lYES, REPORT IT AND 

TRAP C$ ERROR 

j EXIT FROM THE TEST, "CKLOOP" IS IMPLIED 

TRAP C$E5CAPE 
.WORD L10044-. 



L10045i 



TRAP 



c$Esue 



l IF THERE IS IN FACT MORE DATA, LOOP BACK TO 
{TEST IT, ELSE* FALL OUT OF LOOP AND TEST 



L 10044; 



TRAP 



C5ETST 
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4762 
4763 
4764 

4765 



4766 
47b7 
4 768 
4769 
4770 
4771 

4772 



4773 
4774 
4775 
4 776 
4777 
4 778 



4779 
4780 
4 781 
4782 
4783 
4 784 
4785 

4 786 



4/8/ 
4 788 



026130 
026130 
026134 
026136 
026136 
026140 
026140 
026142 

026144 
026150 
026152 
026154 
026156 
026156 
026160 
026160 
026162 

026164 
026170 

026172 
026172 
026172 
C26172 

026174 
026200 
026204 
026210 
026214 
026216 
026216 
026220 
026220 
026222 

026224 



004737 
103003 

104460 

104410 
000066 

004537 
120002 
177777 
103003 

104460 

104410 
000046 

01270.1 
012103 



104402 

111137 

112137 
012700 
004737 
103003 

104460 

104410 
000006 



003762 



004322 



002526 



002306 
002310 
120000 
005034 
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; ******* 4 ******************************************************* 
}* 

{ * TEST 14 -- VIA'S ORB DATA READ/WRITE 

J* 

}* ORB -- "OUTPUT REGISTER PORT B" 
,* 

j* FIRST, A MASTER CLEAR IS PERFORMED. NEXT, 377 IS LOADED INTO DATA 

* DIR, REG. B (DDRB) TO SET ALL B PORT PINS FOR OUTPUT MODE. THEN , 

* READ/WRITE BITS 0-7 OF VIA OUTPUT REG. PORT B ARE TESTED BY WRITING. 

* READING, AND COMPARING EACH BYTE OF DATA PATTERN B. 

* DATA PATTERN B - 125, 252. 000, 377. 001, 002. 004, 010, 020. 040, 100, 

* 200 t 376. 375, 373, 367, 357, 337, 277, 177, 000 
* 
- **************************************************************************** 



SEQ 0127 



BGNTST 

JSR 
BCC 
ERROR 



PC.MSTCLR 
30$ 



ESCAPE TST 



30$; 




JSR 

DDRB 

-1 

BCC 

ERROR 


R5.WRITEI 
31$ 






ESCAPE 


TST 


31$ : 




MOV 
MOV 


0PATB.R1 
(Rl)f ,R3 


T14. 


LP: 







BGNSUB 



MOVB 


(Rl),TDArA 


MOVB 


(R1)*,GDATA 


MOV 


OORB.RO 


JSR 


PCSTREG 


BCC 


10$ 


ERROR 





10$ 



ESCAPE TST 



ENDSUB 



T14:: 
lINIT DMV € START UP THE MAINT. LOOP 
I IF AN ERROR OCCURED, 
{REPORT IT £ 



EXIT 



{INITIALIZE PORT B FOR I/O 



{IF AN ERROR OCCURED, 
{REPORT IT € 

{ EXIT 



{POINT TO PATTERN TABLE 
;GET tf OF ENTRIES IN TABLE 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$ESCAPE 
L 10046 -. 



TRAP 

TRAP 
.WORD 



C$ERR0R 

C$ESCAPE 
L10046-. 



{THE SUBTEST ONLY TESTS THE ONE PATTERN 

T14.li 

TRAP C$BSUB 

{SETUP TEST DATA BYTE FOR "STREG" 

{SETUP EXPECTED DATA BYTE FOR "STREG" 

{SPECIFY THE REGISTER BEING TESTED 

{PERFORM STATIC TEST OF THE SPECIFIED REGISTER 

j WAS AN ERROR FOUND? 

jYES, REPORT IT AND 

TRftP C$ERROR 

5 EXIT FROM THE TEST. "CKLOOP" IS IMPLIED 

TRAP C$f SCAPE 
.WORD L 10046 . 



L10 
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SEQ 0126 



026224 
026224 

4789 

4 790 026226 

4791 

4 792 

4 793 026230 
026230 
026230 



104403 
077317 

104401 



L 10047; 



TRAP 



C$ESU8 



SOB 



ENDTST 



R3.T14.LP 



;IF THERE IS IN FACT MORE DATA, LOOP BACK TO 
j TEST IT, ELSE, FALL OUT OF LOOP AND TEST 



L 10046; 



TRAP 



C$ETST 



0116 
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SEQ 0129 
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i ♦♦ 

J* 

j* 

5* 
5* 

:* 

j* 
;* 
i + 
;* 
; + 
?* 
;* 
;* 

!♦ 

; * 

}* 

;* 

; + 
5* 

+ 

+ 

* 

* 
* 
* 
* 

+ 

;* 

{ * 

i* 
;* 
j + 
i* 
;* 
;♦ 
; + 

! + 
5* 

:* 

;* 

5* 

{ + 



TEST 15 -- VIA'S Tl DATA READ/WRITE 

Tl -- "TIMER 01" 

THIS TEST WRITES, READS, AND CHECKS THE Tl LATCHES AND COUNTER REGISTERS 
WITH DATA PATTERNS IN EACH OF 3 SUBTESTS. 

FIRST SUBTEST: CHECKS FOR PROPER LOADING OF LATCHES 

IT ALSO CHECKS TO BE SURE THAT THE COUNTER APPEARS TO BE DOING 
SOMETHING TO THE COUNTERS, AS LONG AS THEY HAVE CHANGED FROM THE 
VALUE LOADED INTO THEM, WE WILL BE SATISFIED. 

A. A MASTER CLEAR IS PERFORMED. 

B. ALL LATCHES ARE LOADED TO ZEROES (JUST IN CASE), ACR6 C ACR7 ARE SET 
TO ZERO CMODE 00), AND "Tl" INTERRUPT ENABLE FLAG IS CLEARED. 

C. T1L-LCADR 04 j IS LOADED WITH THE CURRENT BYTE OF DATA PATTERN B. 

D. T1L-LCADR 06) IS READ AND COMPARED TO THE BYTE JUST WRITTEN. 

E. T1C-LCADR 04) IS READ AND CHECKED TO BE DIFFERENT THAN THE TEST BYTE. 

F. T1L-LCADR 06) IS LOADED WITH THE COMPLEMENT OF THE CURRENT DATA BYTE. 

G. T1L-LCADR 06) IS READ AND COMPARED TO THE BYTE JUST WRITTEN. 

H. T1L-LCADR 06) IS RE-LOADED WITH TO MAKE T1C-H DECREMENT FAST. 

T1L-HCADR 05) IS LOADED WITH THE ORIGINAL TEST DATA PATTERN BYTE. 
I. T1L-HCADR 07) IS READ AND COMPARED TO THE BYTE LOADED INTO T1L-H. 

J. T1C-HCADR 05) IS READ AND CHECKED TO BE DIFFERENT THAN THE TEST BYTE. 

K. T1L-HCADR 07) IS LOADED WITH THE COMPLEMENT OF THE CURRENT DATA BYTE, 
L. T1L-HCADR 07) IS READ AND COMPARED TO THE BYTE JUST LOADED. 

M. STEPS C-L ARE REPEATED USING EACH BYTE OF DATA PATTERN B. 



SECOND SUBTEST: 



CHECKS FOR CROSS -TALK AND ADDRESSING ERRORS 
FROM T1L-L TO UL-H 



A. T1L-HCADR 07) IS LOADED WITH 000 TO CLEAR IT. 

B. T1L-LCADR 06) IS LOADED WITH A BYTE OF DATA PATTERN B. 

C. TIL -L( ADR 06) IS READ AND COMPARED TO THE DATA JUST WRITTEN 

D. T1L-HCADR 07) IS READ AND COMPARED TO 000. 

E. STEPS B-D ARE REPEATED USING EACH BYTE OF DATA PATTERN B. 



THIRD SUBTEST: 



CHECKS FOR CROSS-TALK AND ADDRESSING ERRORS 

FROM T1L-H TO T1L-L 



A. T1L-LCADR 04) IS LOADED WITH 000 TO CLEAR IT 

B. Til H( ADR 07) IS LOADED WITH A BYTE OF DATA PATTERN B. 

C. T1L-H(ADR 07) IS READ AND COMPARED TO THE DATA JUST WRITTEN 

D. T1L-LCADR 06) IS READ AND COMPARED TO GOO* 



0117 
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SEQ 0130 



4855 
4856 
4857 
4858 
4859 
4860 

4861 



4862 
4863 
4864 
4865 
4866 
4867 

481-8 

4669 
4870 

4*71 



487;? 

4873 
4874 
4875 
4876 
487 7 
48 78 
4879 



4860 
4881 
488? 

4883 
4884 
1885 
•1886 
4887 

4668 
43/. 9 

4890 
4891 
4 892 
4695 



026232 



026232 
026236 
026240 
026240 
026242 
026242 
026244 
026246 



026246 
026252 
02625 4 

026256 
026260 
026260 
02626? 
02626^ 
026264 



026266 
026266 
026266 
026270 
026274 

026276 
0262 76 
026302 

0263.10 
026310 



02631...' 

026 516 



004737 
103003 

104460 

104410 
001030 



004537 

000000 

cooooo 

103003 

104460 

104410 
001010 



1044 v.> 
01270! 
012103 



112137 
013737 



104404 



004537 

120004 



003762 



004660 



002526 



002 306 
002306 



002310 



Q043U> 



j* E. STEPS B-D ARE REPEATED USING EACH BYTE OF DATA PATTERN B. 

;* DATA PATTERN B « 125, 252. 000, 377, 001. 002. 004, 010, 020, 040, 100, 
f * ?00, 376, 375, 37? 367, 357, 337, 277, 177, 000 

. - -* + + + A±***** + *** + ** + + * + + + * + + * + * + * + + + + *** + + +.**** + *** + **+* + * ****************** 



BGNTST 



***--.*** STEP A *** *** 



JSR 
BCC 
ERROR 



PCMSTCLR 
1$ 



ESCAPE TST 

l*t 

. *+*-._+*+ STEP B ***---*** 

R5.INITT1 



T15: 



iINIT DMV £ START UP M-LOOP 
j IF NO ERRORS, PROCEED 
j ELSE. REPORT ERROR 6 

j GET OUT OF THE TEST 



TRAP 

TRAP 
.WORD 



C$ERR0R 

CiESCAPE 
110050- . 



JSR 



.WORD 

BCC 

ERROR 




,+10 



ESCAPE TST 



; INITIALIZE THE TIMER'S REGISTERS 

} WITH ZEROES 

! 00 -> ACR6 6 ACR7 AND DISABLE INTERRUPTS 

;IF NO ERROR, PROCEED 

jELSE, REPORT IT 

TRAP C*ERROR 

; AND EXIT THIS TEST 

TRAP C$ESCAPE 
.WORD L 10050- . 



j WE WANT THE LEAST ACTIVE OPERATING MODE fOR THIS TIMER WHILE WE ARE TESTING 

;IT. THE MODE WE'RE USING HERE IS DOCUMENTED THUSLY: "GENERATE A SINGLE 

j TIME -OUT INTERRUPT EACH TIME T I IS LOADED. PB7 DISABLED." 

; AS AN ADDED PRECAUTION, WE ARE DISABLING INTERRUPTS BY CLEARING THE "Tl" FLAG 

{WITHIN «'IER*\ 



T16.LP{ 



BGNSU6 



MOV 
MOV 



MOVB 
MOV 

BGNSLG 



0PATB.R1 
OVO+.R3 



CRD*. TDATA 
TDATA, GDATA 



j BEGIN THE FIRST SUBTEST 

T15.1: 

TRAP C$BSUB 

iPOINT TO THE APPROPRIATE PATTERN TABLE 
{EXTRACT THE BYTE COUNT FROM THE TABLE 



iGEV ONF BYTE OF THE TEST DATA 

j THE TEST DATA IS NORMALLY THE GOOD DATA TOO 



TRAP 



C*BSEG 



*** .•••4« 



0^63,20 00^306 



JSR 

TICL 

TDATA 



STEP C *** - *** 
R5.URITE 



{LOAD TIL -L< ADDR 04) 

{THE TEST DATA FROM "TDATA" 



>tie 
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4894 
4895 
4896 
4897 
4896 
4899 
4900 
4901 
4902 
4903 
4904 



4905 
4906 
4907 
4906 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 



02632? 004537 004064 

026326 120OO6 

026330 002312 

026332 123737 002310 002312 

026340 001407 

026542 012737 000006 002334 

026350 

026350 
026352 
026354 
026356 



, **+ *** STEP D ♦♦♦ --++* 

JSR R5.READ 
TILL 

BOATA 

CMPB GDATA.BDATA 

BEQ 2> 

MOV *6,REGNUM 

GF.DF EM20.ERR/ 



104455 
000040 
015243 
006612 



4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4954 
4935 
4936 
4937 



026360 
026364 
026366 
026370 
026376 
026400 
026404 
026406 
026410 
026416 

026420 
026426 

026426 
0264 30 
0264 32 
026434 



0264 36 
026442 
026446 
026452 

026454 



0264 56 
026462 
026464 

026466 
0264 74 
0264 76 
026504 



004537 
120OO4 
002312 

123737 
001017 
004537 
120004 
002312 
123737 
0010O7 



004064 

002310 002312 
004064 

002310 002312 



2li 



. .♦♦* 51 EP E ♦**■-.*** 



012?37 000004 002334 



104455 
000041 
015275 
006612 



JSR 

T1CL 

BOATA 

CMPB 

BNE 

JSR 

T1CL 

BOATA 

CMPB 

BNE 

MOV 
GEDF 



R5*READ 



GDATA.BDATA 
R5.READ 



GDATA.BDATA 
41 

•4.REGNUM 

EM20A.ERR7 



105137 
105137 
004537 
120006 
002306 



00453/ 
120006 
002 31.2 
1237!.7 
0014C7 
012737 



002306 
002310 
004310 



4$s 



.+** STEP F *** ■ .*** 

COMB TOATA 

COMB GOAT A 

JSR R5, WRITE 

TILL 
TOATA 



004064 

0023X0 002312 
000006 Q0233A 



» **4 

6» t 



**♦ STEP G *** 

R5.RFAD 



*** 



JSR 

TILL 

BOATA 

CMPB GOATA.BDATA 

BFQ 81 

MOV *6,R£GNUH 

GEDF EM20»ERR/ 



SEQ 0131 



jREAD TU.-UADDR 06) 



>AND CHECK IT 

I IF OK, PROCEED 

I IDENTIFY THE FAILING 

j REPORT FAILURE 

» "DEVICE FATAL" 



REGI5TFR C 




ERROR 32 




TRAP 


CIFRDF 


.WORD 


32 


.WORD 


EM20 


.WORD 


ERR7 



iREAD TlC-LCADOR 04) 



»ANO CHECK 
j THIS MUST 
iIF IT IS. 
I TIME! RE 



IT. SEEING AS THE TIMER IS RUNNING, 
NOT EQUAL THE SET VALUE J 
MATBE WE JUST REAO IT AT THE WRONG 
READ AND CHECK ONE MORE TIME, 



iCHECK IT AGAIN. SAM, 

I THIS TIME IT SHOULD BE DIFFERENT. 

lOTHERWlSE, WE HAVE A LEGITIMATE FAILURE 

I IDENTIFY THE FAILING REGISTER C 

I REPORT FAILURF. 

I "DEVICE FATAL" ERROR 



33 

TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
33 

EM20A 
ERR7 



Q26M4 IQA45& 



lUSE THE ONE'S COMPLEMENT THIS 
jTHE EXPECTED OATA IS ALSO THE 
j LOAD TIL L( ADDR 06 ) 

I THE TEST DATA FROM "TDATA" 



jREAD TIL LC ADDR Obi 



I AND CHECK IT 

I IF OK. PROCHO 

I ID* NT IF i THE FAILING REGISTER £ 

I REPORT F A II URE 

I "DEVICE KAIAL" ERROR 



T IMF 
COMPLEMENT 



54 
TRAP 



C«W 



>119 



C 1 1. 
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0*76506 


000042 




026510 


015243 




026512 


006612 




4939 






4940 






4941 






4942 026514 


105157 


002306 


4943 026520 


105137 


002310 


4944 026524 


004537 


004 32? 


4945 026530 


1200O6 




4946 026532 


000001 




4947 026534 


004537 


004310 


4948 026540 


120005 




4949 026542 


002306 




4950 






4951 






4952 






4953 026544 


0O4537 


004064 


4954 026550 


120007 




4955 026552 


002312 




4956 026554 


123737 


002310 002312 


4957 026562 


001407 




4958 026564 


012737 


000007 002334 


4959 026572 






026572 


104455 




026574 


00004 3 




026576 


015243 




026600 


006612 




4960 






4961 






4962 






4963 026602 


004537 


004064 


4964 026606 


1200C r ; 




4965 026610 


002312 




4966 026612 


012737 


000005 002334 


4967 026620 


105737 


002306 


4968 026624 


001410 




4969 026626 


123737 


002310 002312 


4970 026634 


001004 




4971 026636 






026636 


104455 




026640 


000044 




026642 


0152 75 




026644 


006612 




4972 






4973 






4974 






4975 0261>46 


105137 


002306 


4976 026652 


105137 


002310 


497 7 026656 


004537 


004310 


4976 026662 


12000/ 




49 79 026664 


002506 




4980 






4981 






4982 







j ***- 


--*♦* ST! 


:p h *** ** + 


8$; 


COMB 


TOATA 




COMB 


GDATA 




J5R 


R5.WRITEI 




TILL 






1 






J5R 


R5.WRITE 




T1CH 






TDATA 




l *** - 


. -«** STEP I ♦♦♦ ♦*♦ 




JSR 


R5.READ 




T1LH 






BOATA 






CtiPB 


GDATA.BDATA 




BtQ 


10$ 




MOV 


•7.REGNUM 




GEDF 


EM20.ERR7 



I *** 

10*! 



*** STEP J *** • • •+** 



JSR 


R5.READ 


T1CH 




BDATA 




mov 


♦5.REGNUM 


TSTB 


TOATA 


BEQ 


14$ 


CMPB 


GDATA, BDATA 


BNE 


141 


GEDF 


EM20A.ERR7 



, »♦* ■ 


- -♦♦♦ STI 


:P K **♦ - 


14Vj 


COMB 


TDATA 




COMB 


GDATA 




JSR 


R5, WRITE 




TILH 






TDATA 





♦ * + 



5EQ 0132 



.WORD 34 
.WORD F.M20 
.WORD ERR7 



iRESTORE THE DATA TO THE ORIGINAL VALUE; 

I SET THE LOW LATCH TO MAKE SURE THE HIGH 
jCOUNTER IS DOING MOST OF THE WORK 

lLOAO UL-HCADDR 05) 

l THE TEST DATA FROM "TDATA" 



jREAD TIL HCADDR 07) 



j AND CHECK IT 

I IF OK, PROCEED 

I IDENTIFY THE FAILING REGISTER 

I REPORT FAILURE 

l "DEVICE FATAL" ERROR 



35 




TRAP 


CiEfiDF 


.WORD 


35 


.WORD 


EM20 


.WORD 


ERR7 



jREAD TIC -HCADDR 05) 



.IDENTIFY THE REGISTER BETi^G CHECKED 

jWAS THE TEST DATA "000"? 

I YES. THEN WE CANT BE SURE OF THE RESULTS! 

i NO. CHECK IT 

jlT SHOULDN'T • THE LOADED VALUE 

I IT DID! REPORT FAILURE 

I "DEVICE FATAL" ERROR 36 



lAND CONTINUE TESTING 



I USE THE ONE'S COMPLEMENT THIS TIME 

I THE EXPECTED DATA IS ALSO THE CQMFLEMENI 

tLOAD Til -H( ADOR 07"> 

I THE TEST DATA FROM "TDATA- 



TRAP 


CIERDF 


.WORD 


36 


.WORD 


EM20A 


.WORD 


ERR7 



j %*+ — 444 STEP L ***---*** 
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SEQ 013? 



4983 026666 


004537 


004064 




4984 026672 


120007 






4985 026674 


002312 






4986 026676 


123737 


002310 


002312 


4987 026704 


001407 






4988 026706 


012737 


000007 


002334 


4989 026714 








026714 


104455 






026716 


000045 






026720 


015243 






026722 


006612 






4990 








4991 








499? 








4993 026724 








026724 








02G72<* 


104405 






4994 








4995 026726 


000402 






4996 026730 


000137 


026276 




4997 026734 


077303 






4998 








4999 026736 








026736 








026736 


104403 






5000 








5001 








5002 026740 








026740 








026740 


104402 






5003 026742 


012701 


002526 




5004 026746 


012103 






5005 








5006 026750 








5007 026750 


112137 


002306 




5008 026754 


013737 


002306 


002310 


5009 








5010 








5011 








5012 








5013 026762 


004537 


004322 




5014 026766 


120007 






5015 026770 


000000 






5016 








5017 026 7 72 








026772 


104404 






5018 








5019 








5020 








5021 026774 


004537 


004310 




5022 02 7000 


120006 






5023 027002 


002306 






5024 








5025 








5026 








5027 027004 


004537 


004064 





JSR 


R5.READ 


{READ T1L-HCADDR 07) 




T1LH 








BDATA 








CMPB 


GDATA, BDATA 


lAND CHECK IT 




BEQ 


16$ 


iIF OK, PROCEED 




MOV 


07.REGNUM 


I IDENTIFY THE FAILING REGISTER 6 




GEDF 


EM20.ERR7 


l REPORT FAILURE 

l "DEVICE FATAL" ERROR 37 








TRAP 


C$ERDF 






.WORD 


37 






.WORD 


EM20 






.WORD 


ERR7 



, *** 

16$: 



20$; 
21$; 



*** STEP M *** *** 

ENDSEG 



BR 21$ 
JMP T16.LP 

SOB R3.20* 



ENDSUB 



BGNSUB 



MOV 
MOV 



*PATB»R1 
CR1)»,R3 



m.Lii 



MOVB (R\>*. TDATA 
MOV TDATA.GOATA 



I ***....*** STEP A *♦♦ -*** 

JSR R5, WRITE I 

T1LH 



BGNSEG 



. ♦♦♦-.*♦• STEP B **♦ *** 

JSR R5, WRITE 
TILL 

TDATA 

t ♦*♦-.*** STEP C *♦♦-■-**+ 
JSR R5.READ 



10000$: 



i IF MORE DATA. DO ANOTHER BYTE 
{ELSE, EXIT SUBTEST 

L 10051 t 



TRAP 



C$ESEG 



TRAP 



CJESUB 



;BEGIN THE SECOND SUBTEST 

T15.2: 

TRAP C$BSUB 
{POINT TO THE APPROPRIATE PATTERN TABLE 
{EXTRACT THE BYTE COUNT FROM THE TABLE 



{GET ONE BYTE OF THE TEST DATA 

{THE TEST DATA IS NORMALLY THE GOOD DATA TOO 



{CLEAR T1L-H(ADDR 07) 

{THE TEST DATA FROM "TDATA 



TRAP 



C$BSEG 



lLOAD TIL LCADDR 06) 

{THE TEST DATA FROM "TDATA 

{READ TIL -LCADDR 06) 
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5028 
5029 
5030 
5031 
5032 
5033 



5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
504 3 
5044 



5045 
5046 
504 7 
5048 



5049 
5050 
5051 
5052 
5053 
5054 



5055 
5056 
5057 



5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
506 7 



027010 
027012 
027014 
02 7022 
027024 
027032 

027032 

027034 
027036 
027040 



027042 
027046 
027050 
027052 
027056 
027060 
027064 
027072 

027072 
027074 
027076 
027100 



027102 
027102 
027102 

027104 
027106 
027112 

027114 
027114 
027114 



027116 
027116 
027116 
027120 
027124 

027126 
027126 
027132 



120006 
002312 
123737 
001407 
012737 



104455 
000046 
015243 
006612 



004537 
120007 
002312 
105737 
001411 
005037 
012737 



104455 
00004 7 
015355 
006612 



002310 
000006 



002312 
002334 



5 04402 
012701 
012103 



112137 
013737 



004064 



002312 

002310 
000007 



002334 



104405 

000402 

000137 026750 

077303 



104403 



002526 



002306 
002306 



TILL 




BDATA 




CMPB 


GDATA, BDATA 


BEQ 


2$ 


MOV 


06.REGNUM 


GEDF 


EM20,ERR7 



j ***- 


--*** STE 


-_P d *** * 


2$: 


JSR 

TILH 

BDATA 


R5.REA0 




TSTB 


BDATA 




BEQ 


10$ 




CLR 


GDATA 




MOV 


*7,REGNUM 




GEDF 


EM20B.ERR7 



i ***- 


.-♦** STEP E *♦* 


10$: 


ENDSEG 




20$; 
21$: 


BR 

JMP 

SOB 


21$ 

T16.L1 

R3,20$ 



— ♦ + * 



ENDSU6 



BGNSUB 



T16.L2: 



002310 



MOV 
MOV 



MOVB 
MOV 



OPATB.Rl 
<R1)»,R3 



(R1)»,TDATA 
TDATA, GDATA 



027140 004537 004322 



j *+* +** STEP A **♦--**♦ 

JSR R5,WRITF1 



SEQ 0154 



lAND CHECK IT 

I IF OK, PROCEED 

{IDENTIFY THE FAILING REGISTER 

i REPORT FAILURE 

I "DEVICE FATAL" ERROR 



38 




TRAP 


CIERDf- 


.WORD 


38 


.WORD 


EM20 


.WORD 


ERR7 



{READ T1L-HCADDR 07) 



{AND CHECK IT -- THIS SHOULD STILL BE ZERO 
j IF OK, PROCEED 

i IDENTIFY THE FAILING REGISTER 6 

j REPORT FAILURE 

i "DEVICE FATAL" ERROR *> 39 



TRAP 
.UORD 
.WORD 
.WORD 



C$ERDF 
39 

EM20B 
ERR7 



10000$: 



j IF MORE DATA, DO ANOTHER BYTE 
{ELSE, EXIT SUBTEST 

L 10052: 



TRAP 



CSESEG 



TRAP 



C$ESU6 



{BEGIN THE THIRD SUBTEST 

T15.3: 

TRAP C$BSU6 

{POINT TO THE APPROPRIATE PATTERN TABLE 
{EXTRACT THE BYTE COUNT FROM THE TABLE 



jGET ONE BWE OF THE TEST DATA 

j THE TEST DATA IS NORMALLY THE GOOD DATA TOO 



I CLEAR T1L-LIADDR 04) 



J 0122 



Fll 
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SEQ 0135 



5069 


027144 


120004 






T1CL 




5070 


027146 


000000 











5071 














5072 


027150 
027150 


104404 






BGNSEG 




5073 














5074 








• ***-• 


--+*+ STEP B *** *** 


5075 














5076 


027152 


004537 


004310 




JSR 


R5, WRITE 


5077 


027156 


120007 






T1LH 




5078 


027160 


002306 






TOATA 




5079 














5080 








l *+*- 


--+** STEP C *** *** 


5081 














5082 


0271C2 


00453 7 


004064 




JSR 


R5.READ 


5083 


0c*:7166 


120007 






T1LH 




5084 


027170 


002312 






BDATA 




5085 


027172 


123737 


002310 002312 




CMPB 


GDATA, BDATA 


5086 


027200 


C01407 






BEQ 


10* 


5087 


027202 


012737 


000007 002334 




MOV 


*7,REGNUM 


5088 


027210 

027210 
027212 
027214 
027216 


104455 
000050 
015243 
006612 






GEDF 


EM20.ERR7 


5089 














5090 








5 44*- 


.-444 STEP +** — *** 


5091 














5092 


027220 


004537 


004064 


10$: 


JSR 


R5.READ 


5093 


027224 


120006 






TILL 




5094 


027226 


002312 






BDATA 




5095 


027230 


105737 


002312 




TSTB 


BOATA 


5096 


027234 


001411 






BEQ 


25 


5097 


027236 


005037 


002310 




CLR 


GDATA 


5098 


027242 


012737 


000006 002334 




MOV 


06.REGNUM 


5099 


027250 

027250 
027252 
027254 
027256 


104455 
000051 
015355 
006612 






GEDF 


EM20B.ERR7 


5100 














5101 








. ♦**- 


--♦♦4 STEP E 444-.-*** 


5102 














5103 


027260 
027260 
027260 


104405 




2$: 


ENDSEG 




5104 














5105 


027262 


000402 






BR 


21$ 


5106 


027264 


000137 


027126 


20$: 


JMP 


T16.L2 


5107 


027270 


077303 




21$: 


SOB 


R3,20$ 


5108 














5109 


0272 72 

027272 
027272 


104405 






EN0SU6 





TRAP 



CJBSEG 



{LOAD T1L-HCAD0R 07) 

j THE TEST DATA FROM "TDATA" 

jREAD T1L-HCADDR 07) 



j AND CHECK IT 

I IF OK, PROCEED 

» IDENTIFY THE FAILING REGISTER 6 

j REPORT FAILURE 

: "DEVICE FATAL" ERROR 40 

TRAP 
.WORD 
.WORD 
.WORD 



jREAD T1L-LCADDR 06) 



j AND CHECK IT 
j IF OK, PROCEED 

i IDENTIFY THE FAILING REGISTER 6 

t REPORT FAILURE 

s "DEVICE FATAL" ERROR 41 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
40 

EM20 
ERR7 



CJERDF 
41 

EM20B 
ERR7 



10000$: 



l IF MORE DATA, 00 ANOTHER EM TK 
jELSE, EXIT SUBTEST 

L10053: 



TRAP 



CSESEG 



TRAP 



5110 



CU.SUB 



0123 
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SEQ 0136 



5111 027274 
027274 
027274 



ENDTST 



104401 



L10050: 



TRAP 



C$ETST 
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5125 
5126 
5127 

5128 



5129 
5130 
5131 
5132 
5133 
5134 



5135 
5136 
5137 
5138 
5139 
5140 
5141 

5142 



5143 
5144 



5145 
5146 
5147 

5148 
5149 



027276 
027276 
027302 
027304 
027304 
027306 
027306 
027310 

027312 
027316 

027320 
02 7320 
027320 
027320 

027322 
027326 
027332 
027336 
027342 
027344 
027344 
027346 
02 7346 
027350 

027352 
027352 
027352 

027354 



027 356 
027356 
027356 



004737 
103003 

104460 

104410 
000046 

012701 
012103 



104402 

111137 
112137 
012700 
004 737 
103003 

104460 

104410 
000006 



104403 
077317 

104401 



003762 



002526 



002306 
002310 
120012 
005034 



.SBTTL TEST 16 



VIA'S SR DATA READ/WRITE 



J* 

5+ TEST 16 -- VIA'S SR DATA READ/WRITE 

i* 

j* SR ■- "SHIFT REGISTER" 

1 + 

;* FIRST, A MASTER CLEAR IS PERFORMED AND THE ACR IS SET TO 000. THEN : 

i* READ/WRITE BITS 0-7 OF VIA SHIFT REGISTER ARE TESTED BY WRITING, READING, 

* AND COMPARING EACH BYTE OF DATA PATTERN B. 

* DATA PATTERN B - 125, 252, 000, 377. 001. 002, 004. 010, 020, 040, 100. 

* 200, 376, 375, 373, 367, 357, 337, 277, 177, 000 

- -+***************************+*******+**+****+*****+******+*************+*** 



30$: 
T18. LP: 



10$ 



BGNTST 

JSR 
BCC 
ERROR 



MOV 
MOV 



BGNSUB 



SOB 
ENDTST 



PC.MSTCLR 
30$ 



ESCAPE TST 



0PATB,R1 
(R1)*,R3 



MOVB 


(RD.TDATA 


MOVB 


(R1)*,GDATA 


MOV 


*SR,RO 


JSR 


PC.STREG 


BCC 


10$ 


ERROR 





ESCAPE TST 



ENDSUB 



R3,T18,LP 



T16: : 
iINIT DMV 6 START UP THE MAINT, LOOP 
i IF AN ERROR OCCURED, 
jREPORT IT 6 



EXIT 



{POINT TO PATTERN TABLE 
jGET fr OF ENTRIES IN TABLE 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$ESCAPE 
L10054-. 



5 THE SUBTEST ONLY TESTS THE ONE PATTERN 

T16.1: 

TRAP C$BSUB 

tSETUP TEST DATA BYTE FOR "STREG" 

iSETUP EXPECTED DATA BYTE FOR "STREG" 

{SPECIFY THE REGISTER BEING TESTED 

{PERFORM STATIC TEST OF THE SPECIFIED REGISTER 

{WAS AN ERROR FOUND? 

tYES, REPORT IT AND 

TRAP C$ERRQR 

{ EXIT FROM THE TEST. "CKLOOP" IS IMPLIED 

TRAP C$ESCAPE 
.WORD L10054-. 



SEQ 0137 



L10055j 



TRAP 



CiESUB 



I IF THERE IS IN FACT MORE DATA, LOOP BACK TU 
{TEST IT, ELSE, FALL OUT OF LOOP AND TEST 



L10054; 



TRAP 



c$trsr 
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5165 
5164 
5165 

5166 



5167 
5168 
5169 
5170 
5171 
5172 



5173 
5174 
5175 
5176 
5177 
5178 
5179 

5180 



5181 
5182 



5183 
5184 
5185 
5186 
5187 



027360 
02 7360 
027364 
027366 
027366 
027370 
027370 
027372 

027374 
027400 

027402 
027402 
027402 
027402 

027404 
027410 
027414 
027420 
027424 
027426 
027426 
027430 
027430 
027432 

027434 
027434 
027434 

027436 



02 744 
027440 
Q2744Q 



004737 
103003 

104460 

104410 
000046 

012701 
012103 



104402 

111137 
112137 
012700 
004737 
103003 

104460 

104410 
000006 



104403 
077317 

1Q44Q1 



003762 



002526 



002306 
002310 
120013 
005034 



.SBTTL TEST 17 -- VIA'S ACR DATA READ/WRITE 

. * **t<*,± + *+.±+ +*****.**. + +.*>** + ** + * + * + ** + + + + + + + * + * t± + ** + +,*4-+ **>+*■+* + + +***■ + * + +*+.*** + + 

;* TEST 17 -- VIA'S ACR DATA READ/WRITE 

I* 

} * ACR -- "AUXILIARY CONTROL REGISTER" 

{* 

{+ FIRST, A MASTER CLEAR IS PERFORMED. THEN t 

;* READ/WRITE BITS 0-7 OF THE ACR ARE TESTED BY WRITING, READING, 

j* AND COMPARING EACH BYTE OF DATA PATTERN B. 

;* DATA PATTERN B - 125, 252, 000, 377, 001, 002, 004, 010, 020, 040, 100, 

j* 200, 376, 375, 373, 367, 357, 337. 277. 177, 000 

- .* + * + ********* + * + ************** + ** + * + **************** + ***+*** *******i*** + **4 



30$: 
T19.LP: 



io$j 



BGNTST 

JSR 
BCC 
ERROR 



MOV 
MOV 



BGNSU6 



-OB 



ENDTST 



PC.MSTCLR 
30* 



ESCAPE TST 



0PATB.R1 



MOVB 


(R1),TDATA 


MOVB 


(R1)*,GDATA 


MOV 


OACR,R0 


JSR 


PC.STREG 


BCC 


10$ 


ERROR 





ESCAPE TST 



ENDSUB 



R3.T19.LP 



T17: : 

jINIT DMV 6 START I ff> THE MAINT. LOOP 
;IF AN ERROR OCCURED, 
jREPORT IT 6 



EXIT 



{POINT TO PATTERN TABLE 
{GET OF ENTRIES IN TABLE 



TRAP 

TRAP 
.WORD 



CSERROR 

CJESCAPE 
L 10056 -. 



{THE SUBTEST ONLY TESTS THE ONE PATTERN 

T17.X: 

TRAP CSBSUB 

{SETUP TEST DATA BY'iE FOR "STREG" 

{SETUP EXPECTED DATA BYTE FOR "STREG" 

{SPECIFY THE REGISTER BEING TESTED 

{PERFORM STATIC TEST OF THE SPECIFIED REGISTER 

{WAS AN ERROR FOUND? 

iYES, REPORT IT AND 

jp^p r* ERROR 

{ EXIT FROM THE TEST. "CKLOOP" IS IMPLIED 

TRAP CiESCAPE 
.WORD L 10056 -. 



L10057: 



TRAP 



C5ESUB 



;IF THERE IS IN FACT MORE DATA, LOOP BACK TO 
jTEST IT, ELSE, FALL OUT OF LOOP AND TEST 



L10056: 



SEQ 0138 



TRAP 



CSETST 
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5200 



5201 
5202 
5203 

5204 



5205 
5206 
5207 
5208 
5209 
5210 



5211 
5212 
5213 
5214 
5215 
5216 
5217 

5218 



5219 
5220 



5221 
5222 
5223 
5224 



027442 
027442 
027446 
027450 
027450 
027452 
027452 
027454 

027456 
027462 

027466 
027466 
027466 
027466 

027470 
027474 
027500 
027504 
027510 
027512 
027512 
027514 
027514 
027516 

027520 
02 7520 
027520 

027522 

027524 

027524 
027524 



004737 
103003 

104460 

104410 
000050 

012701 
012703 



104402 

111137 
112137 
012700 
004737 
103003 

104460 

104410 
000006 



104403 
077317 

104401 



003762 



002530 
002543 



002306 
002310 
120014 
005034 
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,SBTTL TEST 18 -- VIA'S PCR DATA READ/WRITE 

* 

* TEST 18 -- VIA'S PCR DATA READ/WRITE 
* 

* PCR -- "PERIPHERAL CONTROL REGISTER" 
* 

* FIRST, A MASTER CLEAR IS PERFORMED. THEN : 

* READ/WRITE BITS 0-7 OF THE PCR REGISTER ARE TESTED BY WRITING, READING, 

* AND COMPARING EACH BYTE OF A SUBSET OF DATA PATTERN B, 
;* DATA PATTERN B (SUBSET) - 125, 252, 000, 377, 001, 002, 004, CIO, 020, 

* 040, 100, 200. 

•K 

..-****** + A************************************** + + * + + + *+ + ** + + + + + + + + * + + + + + + * + + 



30$: 
T20.LP: 



10$ 



BGNTST 

JSR 
BCC 
ERROR 



MOV 
MOV 



BGNSU8 



SOB 
ENDIST 



PC.MSTCLR 
30$ 



ESCAPE TST 



*PATB»2,R1 
#PATB»15,R3 



MOVB 


(Rl).TDATA 


MOVB 


(R1)*,GDATA 


MOV 


4PCR.R0 


JSR 


PC.STREG 


BCC 


10$ 


ERROR 





ESCAPE TST 



ENDSUB 



R3.T20.LP 



T18:: 
iINIT DMV 6 START UP THE MAINT. LOOP 
j IF AN ERROR OCCURED, 
{REPORT IT fi 



EXIT 



iPOINT TO PATTERN TABLE 
{GET OF ENTRIES IN TABLE 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$ESCAPE 
L 10060 -. 



{THE SUBTEST ONLY TESTS THE ONE PATTERN 

Tl8.li 

TRAP C$BSUB 

j SETUP TEST DATA BYTE FOR "STREG" 

I SETUP EXPECTED DATA BYTE FOR "STREG" 

{SPECIFY THE REGISTER BEING TESTED 

{PERFORM STATIC TEST OF THE SPECIFIED REGISTER 

jUAS AN ERROR FOUND? 

■ YES, REPORT IT AND 

TRAP C$ERROR 

j EXIT FROM THE TEST, "CKLOOP" IS IMPLIED 

TRAP C$ESCAPE 
.WORD L 10060 -. 



L10061: 



TRAP 



C$ESUB 



{IF THERE IS IN FACT MORE DATA, LOOP BACK TO 
{TEST IT. ELSE, FALL OUT OF LOOP AND TEST 



SEQ 0139 



L 10060: 



TRAP 



C$ETST 
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5243 



5244 
5245 
5246 

5247 



5248 
5249 
5250 
5251 
5252 
5253 
5254 



5255 
5256 
5257 
5253 
5259 
5260 
5261 

5262 



5263 

5264 



5265 

5266 



027526 
027526 
027532 
027534 
027534 
027536 
027536 
027540 

027542 
027546 
027550 

02 7554 
027554 
027554 
027554 

027556 
027562 
027566 
02/572 
027576 
02/600 
027C>00 
027602 
027602 
027604 

C27606 
02 7606 
027606 

027610 



004737 
103003 

104460 

104410 
000052 

012701 
012103 
012702 



104402 

112137 
112237 
012700 

004737 
103003 

104460 

104410 
000006 



104403 
077317 



003762 



002644 
002676 



002306 
002310 

120016 
005034 
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.SBTTL TEST 19 -- VIA' 5 IER DATA READ/WRITE 

. ♦ ******************* a******************************************************** 

I* TEST 19 -- VIA'S IER DATA READ/WRITE 

J* 

}* IER -- "INTERRUPT ENABLE REGISTER" 

{* 

j* BITS 0-6 OF THE IER CAN BE SET OR CLEARED ON A WRITE, UNDER CONTROL OF THE 

j* SET/CLEAR CONTROL BIT 7. TO TEST THIS , EACH BYTE OF DATA PATTERN D IS 

j* WRITTEN INTO IER, AND THE REGISTER IS READ AND COMPARED TO THE CORRESPOND- 

{* ING BYTE OF DATA PATTERN E, 

{* 

{* DATA PATTERN D * 200, 201, 202. 204, 210, 220, 240, 300. 200, 000. 001. 

;* 002, 004, 010, 020, 040, 100, 000, 325. 125. 252, 052 

{* 

j* DATA PATTERN E * 000, 001, 003. 007. 017, 037, 077. 177. 177, 177, 176, 

l* 174, 170, 160, 140, 100, 000, 000, 125, 000. 052, 000 

* 

- -****+************************************&************ ********************* 



30$: 



T21.LP: 



10$ 



BGNTST 

JSR 
BCC 
ERROR 



MOV 
MOV 
MOV 



BGNSUB 



PC.MSTCLR 
30$ 



ESCAPE TST 



4PATD.R1 
CR1)>.H3 
4PATE*2,R2 



M0V8 


(Ri)»,TDATA 


MOVB 


CR2)*,GDATA 


MOV 


4IENR.R0 


JSR 


PC.STREG 


BCC 


10$ 


ERROR 





ESCAPE TST 



FNDSUB 



T19: : 
sINIT DMV € START UP THE MAINT. LOOP 
jIF AN ERROR OCCURED, 
{REPORT IT 6 



EXIT 



TRAP 

TRAP 
.WORD 



CSERROR 

C$ESCAPE 
L 100^2-. 



SOB 



R3.T21.LP 



{POINT TO PATTERN TABLE 

{GET O OF ENTRIES IN TABLE 

{POINT TO "EXPECTED" DATA PATTERN TABLE 



•.THE SUBTEST ONLY TESTS THE ONE PATTERN 

T19.1: 

TRAP C$BSUB 

{SETUP TEST DATA BYTE FOR "STREG" 

{SETUP EXPECTED DATA BYTE FOR "STREG" 

{SPECIFY THE REGISTER BEING TESTED 

{PERFORM STATIC TEST OF THE SPECIFIED REGISTER 

{WAS AN ERROR FOUND? 

{YES, REPORT IT AND 

TRAP C$ERROR 

j EXIT FROM THE TEST. "CKLOOP" IS IMPLIED 

TRAP CJESCAPE 
.WORD L 10062 -. 



L 10063: 

TRAP C*ESUB 

l IF THERE IS IN FACT MORE DATA. LOOP UACK TO 



SEQ 0140 



3 0128 
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5267 

5268 

5269 027612 

027612 

027612 104401 



L 1 1 
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SEQ 0141 



j TEST IT. ELSE, FALL OUT OF LOOP AND TEST 



ENDTST 



L 10062: 



TRAP CSETST 



Mil 
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5282 .SBTTL TEST 20 -- VIA'S ORB/DDRB MASTER CLEAR TEST 



SEQ 0142 



5263 

5284 
5285 
5286 

5287 



5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 

5299 



5300 
5301 
5302 
5303 
5304 
5305 
5306 

5307 



5308 
5309 
5310 
5311 



027614 

027614 
027620 
027622 
027622 
027624 
027624 
027626 

027630 
027636 



027644 
027650 
02.654 
027656 
02' 656 
027660 
027660 
027662 



027664 
027670 
02 7674 
027676 
027676 
027700 
027700 
027702 

027704 
02 7 710 
02" 12 

02 7 712 



004737 
103003 

104460 

104410 

12 

012737 
013737 



012700 
004737 
103003 

104460 

104410 
000216 



012700 
004737 
103003 

104460 

104410 
000176 

00473/ 
103003 

104460 



003762 



000377 
002310 



120002 
005034 



002310 
002306 



120000 
005034 



003762 



J + 

5* TEST 20 -- VIA'S ORB/DDRB MASTER CLEAR TEST 
5* 

i* ORB -- "OUTPUT REGISTER PORT B" 

j* DDRB «« "DATA DIRECTION REGISTER B" 

J* 

j* FIRST, A MASTER CLEAR IS PERFORMED. NEXT, 377 IS LOADED INTO DDRB TO SET 

{+ ALL B PORT PINS FOR OUTPUT MODE. THEN, A 000 BYTE IS WRITTEN INTO ORB AND 

i* THE REGISTER IS READ BACK AND CHECKED FOR 000. THEN, A MASTER CLEAR IS 

j* PERFORMED AND ORB IS READ AND CHECKED FOR 377. 

* „-**** + + * + * + * + * + * + + * + *** + * + ** + ** + * + + ** + + ** + * + *** + + * + * + * + + + + * + + + + + + ** + * + * +. + *** 



BGN1ST 



JSR 
BCC 
ERROR 



PC.MSTCLR 
1* 



1$ 



ESCAPE TST 



MOV *377,GDATA 
MOV GDATA.TDATA 



T20;: 

jINIT DMV C START UP THE MAINT . LOOP 

j IF AN ERROR OCCURED, 

jREPORT IT 6 

TRAP 

I EXIT 

TRAP 
.WORD 

{SETUP FOR CALL TO STREG 



WE'LL USE "STREG" TO LOAD C CHECK "DDRB" WITH 377 THEREBY SETTING UP 
"ORB" FOR BI-DIRECTIONAL TRANSFERS 



MOV 
JSR 
BCC 
ERROR 

ESCAPE 



ODDRB.RO 
PC, STREG 
4$ 



; POINT TO ORB 
jLOAD L TEST IT 
j IF OK, PROCEED WITH TESTING 
{ELSE, REPORT THE ERROR 



\ 



& QUIT 



TRAP 

TRAP 
.WORD 



NOW WE'LL USE "STREG" TO SET 6 CHECK "ORB" 



4$ 



MOV 


tf ORB , RO 


JSR 


PC, ST PEG 


BCC 


5* 


ERROR 





ESCAPE TST 



{POINT TO DDRB 

lLOAD L TEST "ORB" 

l IF NO ERROR HERE, PROCEED 

(FUSE, REPORT THE ERROR 

: 6 QUIT 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$ESCAPE 
L10064-. 



CJERROR 

C$ ESCAPE 
L 10064 -. 



CJERROR 

CJESCAPE 
1.10064-, 



5$ 



JSR 
BCC 
ERROR 



PC.MSTCLR 
10* 



;IViUl TMt MASTtR CLEAR (STAY IN M-LU0P1 
lU NO ERROR HERE* PROCEED 
I ELSE, REPORT IT 

TRAP C$E"RROR 



Q 0130 
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5312 



5313 
5314 
5315 
5316 
531? 
5318 
"319 
i»32» 

5321 



5322 
5323 
5324 
5325 
5326 



027714 
027714 
027716 



5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 

533C 



5339 
5340 
5341 
5342 
5343 
5344 
5345 

5346 



5347 
534o 
5349 
5350 
5351 



027724 
027730 
027732 
027734 
027736 
027736 
027740 
027740 
027 742 

027744 

027752 
027754 
027762 

027762 

027764 
027766 
027770 

027772 
030000 



030006 
030012 
030016 
030020 
030020 
030022 
030022 
030024 

030026 
030032 
030036 
030040 
030042 
030044 
030044 
030046 
030046 
030050 

030052 
030060 
030062 
030070 



104410 
000162 



027720 C05037 



004537 
120002 
002312 
103003 

104460 

104410 
000136 

123737 
001407 
012737 



104455 
000052 
014515 
006612 

012737 
013737 



012700 
004 737 
103003 

104460 

104410 
000054 

005037 
004537 
120000 
00231? 
103003 

104460 

104410 
000030 

123737 
001407 
012737 



002310 
004064 



002310 
004064 



ESCAPE TST 



& QUIT 



TRAP 
.WORD 



C$ESCAPE 
L10064-. 



10$ 



002312 002310 
000002 002334 



12$ 



CLR 

JSR 
DDRB 

BOATA 

BCC 

ERROR 

ESCAPE 



CMPB 
BEQ 
MOV 
GEDF 



GDATA 
R5.READ 

12$ 

TST 



jFOR TESTING PURPOSES LATER 

jREAD THE "RESET" VALUE OF THE "DDRB" 



sir NO ERROR READING IT, PROCEED 
{ELSE, REPORT IT 

; 6 QUIT 



TRAP 

TRAP 
.WORD 



C$EG'OR 
1.10064 -. 



BDATA. GDATA 

14$ 

<K)DRB6<17>,REGNUM 

EM5.ERR7 

J 



000377 002310 
002310 002306 



120002 
005034 



14$ 



MOV 
MOV 



$377, GDATA 
GDATA, TDATA 



{DID IT GET CLEARE? 

j YES, GCOD. NOW CHECK "ORB" 

;N0! BUILD REGISTER 4 POINTER 
;REP0RT MASTER CLEAR FAILURE 

"DEVICE FATAL" ERROR 4 42 

TRAP C$ERDF 
.WORD 42 
.WORD EM5 
.WORD ERR7 

I SETUP FOR CALL TO STREG 



WE'LL USE "STREG" TO LOAO 6 CHECK "DDRB" WITH 377 THEREBY SETTING UP 
"ORB" FOR BY-DIRECTIONAL TRANSFERS 



MOV 
JSR 
BCC 
ERROR 



ODDRB.RO 
PC, STREG 
16$ 



ESCAPE TST 



;. )INT TO ORB 
{LOAD C TEST IT 
;IF 0V t PROCEED WITH TESTING 
{ELSE, REPORT THE ERROR 

! 5 QUIT 



TRAP 

TRAP 

.WORD 



C$ERROR 

CSESCAPE 
L10064-. 



16$ 



002310 002312 
OQCOOO 002334 



1U: 



CLR 

JSR 

ORB 

BDATA 

BCC 

ERROR 

ESCAPE 



CMPB 
BEQ 
MOV 
GEDF 



GDATA 
R5.READ 



18$ 
TST 



{3FTUP FOR TESTING ORB 

{NOW READ lME "RESET" VALUE OF "ORB" 



I IF NO ERROR READING IT, PROCEED 
{ELSE, REPCRT IT 



{ 



€ 'JUIT 



TRAP 

TRAP 
.WORD 



C$tRROR 

C$tSCAPt 
L 10064 ~, 



SEQ 0143 



GDATA, BDATA :^AS IT PROPERLY RESET? 
32$ {YES, THIS TEST IS nONE , EXIT 

#0RBC<17>,R^NUM {NO! BUILD REGISTER POINTER 
EM5.ERR7 {REPORT MASTER LLEAR FAILURE 

I "DEVICE FATAL" ERROR 4 43 



131 
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?i?-FF.B-6fl 15s?? PAUfc 70-2 



SEQ 0144 



0300 70 
03007? 
030074 
0300 76 

!>35? 

5353 030100 
030100 
030100 



10445!> 
000053 
01451S 
00661? 



104401 



TRAP CttRW 

. WORD 4 3 

, UORD EMI ■ 

.WORD ERH7 



3?l: 



ENPTST 



L 10064i 



TRAP 



CtfcTST 



C'1.2 

CNOMAAO DMVtl MCTRl DIAG <?1 MACRO M1200 22-FEB-84 15j22 PAGE 71 
TEST 21 • VIA' 5 ODRB MASTER CLEAR TEST 



SEQ 0145 



55*7 



030102 



5368 






5369 050102 


004 737 


003762 


5370 030106 


103003 




5371 030110 






030110 


104460 




5372 030112 






030112 


104410 




050114 


000114 




5373 






5374 030116 


01^757 


00057^ 002310 


5375 030124 


013737 


002510 002306 


5376 030132 


012700 


120002 


5377 






5378 






5379 






5380 030136 


004757 


005034 


5381 030142 


105003 




5382 030144 






030144 


104460 




5383 030146 






030146 


104410 




030150 


000060 




5384 






5385 030152 


004737 


003762 


5386 030156 


103003 




5387 030160 






030160 


104*60 




5388 030162 






030162 


104410 




030164 


000044 




5389 






5590 030166 


005037 


002310 


539) 030172 


00453 7 


004064 


5392 030176 


120002 




5393 030200 


002312 




5 594 






5 395 50 JO? 


12573/ 


002310 002312 


5396 030210 


001407 





.SBTTL TEST 21 -- VIA 1 S DORB MASTER CLEAR TEST 

TEST 21 -■ VIA'S DDRB MASTER CLEAR TEST 

DORB -• "DATA DIRECTION REGISTER B" 

A 377 BYTE IS WRITTEN INTO DDRB ANO THE REGISTER IS READ BACK AND CHECKED 
FOR 577, THEN, A MASTER CLEAR IS PERFORMED AND DDRB IS READ AND CHECKED FOR 
000. 

NOTE; THIS TESTT^G IS ALSO DONE IN TEST 23. IT IS TNCLUOFD HERE ONI. r TO 
PROVIDE TIGHTER LOOPING ON JUST THE DDRB MASTER CLEAR CHECKING. 



BGNTST 



JSR 
BCC 
ERROR 



PC,MSTCLR 
It 



11: 



ESCAPE TST 



MOV 0577.GDATA 
MOV GDATA.TDATA 
MOV frCDRB.RO 



T?l: : 

jINU DMV 6 START UP THE MAINT, LOOP 

i IF AN ERROR OCCURED, 

I REPORT IT 6 

TRAP 

I EXIT 

TRAP 
.WORD 

I SETUP FOR CALL TO STREG 



CIERROR 

CIESCAPE 
L 10065- . 



j NOW WE'LL USE "STREG" TO SE1 C CHECK 1, DDRB" 



JSR 
BCC 
ERROR 



PC, STREG 
5$ 



I LOAD C TEST "DDRB ' 

i IF NO ERROR HERE, PROCEED 

jLLSE, REPORT IT 



ESCAPE TST 



I 



I QUIT 



TRAP 

TRAP 
.WORD 



CI ERROR 

CIESCAPE 
I 10065- , 



51} 



JSR 
BCC 
ERROR 



PC.MSTCLR 
101 



ESCAPE TST 



101 i 



Cl R 
JSR 
DDRB 
BDATA 

CMPB 
BEQ 



GOAT A 
R5.RFAD 



r.DATA»BDAIA 
32* 



I ISSUE THE MASTER CLEAR (STAT IN M-LOOP) 

I IF NO ERROR HERE, PROCEED 

lELSE, REPORT IT 

TRAP CI ERR OR 

I & QUIT 

TRAP CIESCAP* 
.WORD LlQQb5-i 

I* OR TESTING PURPOSES LATER 

jNOW READ THE "RESET" VALUE OF "DORB" 



I WAS IT PRQPERl I RESET? 
1*IS, THIS TEST IS UONE, EXIT 



D12 
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0133 SEQ 0146 

TEST 21 - VIA'S DDRB MASTER CLEAR TEST 

000002 002334 MOV *DDRB£< 17> ,REGNUM |N0! BUILD REGISTER POINTER 

GEDF EM5.ERR7 jREPORT MASTER CLEAR FAILURE 

j "DEVICE FATAL" ERROR 44 

TRAP CtERDF 

.WORD 44 

. WORD EM5 

.WORD ERR 7 

32$ j ENDTST 

L10O65: 

TRAP CSETST 



5397 


030212 


012737 


5398 


030220 






030220 


104455 




030222 


000054 




030224 


014515 




030226 


006612 


5399 






5400 


030250 
030230 






030230 


104401 



CNOMAAO 

TEST .V 

5411 



DHVU MCTRL DIAG n MACRO M1200 22-FEB-84 15:22 
-- VIA'S DDRA MASTER CLEAR TEST 



E'1.2 
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SBTTL TEST 22 -- VIA'S DORA MASTER CLEAR TEST 



SEQ 0147 



050232 



5412 








5413 


030232 


004737 


003762 


5414 


030236 


103003 




5415 


030240 








030240 


104460 




5416 


030242 








030242 


104410 






030244 


000114 




5417 








5418 


030246 


012737 


000377 002310 


5419 


030254 


013737 


002310 002306 


5420 


030262 


012700 


120003 


5421 








5422 








5423 








5424 


030266 


004737 


005034 


5425 


030272 


103003 




5426 


030274 








030274 


104460 




5427 


030276 








030276 


104410 






030300 


000060 




5428 








5429 


030302 


004737 


003762 


5430 


030306 


103003 




5431 


030310 








030310 


104460 




5432 


030312 








030312 


104410 






030314 


OO0044 




5433 








5434 


030316 


005037 


002310 


5435 


030322 


004537 


004064 


5436 


030326 


120003 




5437 


030330 


002312 




54 38 








5439 


030332 


123737 


002310 002312 


5440 


030340 


001407 




5441 


030342 


012737 


000003 002334 


5442 


030350 







+ 

* TEST 22 -- VIA'S DDRA MAZIER CLEAR TEST 

* DDRA -■ "DATA DIRECTION REGISTER A" 

+ 

* A 377 BYTE IS WRITTEN INTO DDRA AND THE REGISTER IS READ BACK AND CHECKED 

* FOR 377. THEN, A MASTER CLEAR IS PERFORMED AND DDRA IS READ AND CHECKED FOR 

* 000. 

* 

-.^+** + ******* +***+*+ + ****-♦ + ** + + + **** + + ** ++** + ****♦>*********** + ****•*♦*«« + **♦.* 
BGNTST 



JSR 
BCC 
ERROR 



PC.MSTCLR 
It 



It 



ESCAPE TST 



MOV 4377.GDATA 
MOV GDATA.TDATA 
MOV ODDRA.RO 



T22:: 

jINIT DMV I START UP THE MAINT 
j IF AN ERROR OCCURED, 
jREPORT IT 6 

; EXIT 



j SETUP FOR CALL TO STREG 



LOOP 



TRAP 

TRAP 
.WORD 



Ct ERROR 

CtESCAPE 
L 10066 -. 



j NOW WE'LL USE "STREG" TO SET 6 CHECK "DDRA" 



JSR 
BCC 
ERROR 



PC, STREG 
5t 



jLOAD 6 TEST "DDRA" 

j IF NO ERROR HERE, PROCEED 

jELSE, REPORT IT 



ESCAPE TST 



I 



6 QUIT 



TRAP 

TRAP 
.WORD 



CtERROR 

CtESCAPE 
L 10066 -. 



5t 



JSR 
BCC 
ERROR 



PC.MSTCLR 

lot 



ESCAPE TST 



lOt 



CLR 
JSR 
DDRA 
BOATA 

CMPB 
BEQ 

MOV 
GEDF 



GDATA 
R5.READ 



lISSUE THE MASTER CLEAR (STAY IN M-LOOP) 

i IF NO ERROR HERE, PROCEED 

jELSE, REPORT IT 

TRAP 

I £ QUIT 

TRAF 
.WORD 

iFOR TESTING PURPOSES LATER 

I NOW READ THE "RESET" VALUE OF "DDRA" 



CtERROR 

CtESCAPE 
L 10066 -. 



GDATA.BDATA 
32t 



jWAS IT PROPERLY RESET? 

jYES, THIS TEST IS DONE. EXIT 
*DDRA£<17>,REGNUM i NO • BUILD REGISTER POINTER 

EM5»ERR7 jREPORT MASTER CLEAR FAILURE 

i "DEVICE FATAL" ERROR if 45 



a 0135 
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SEQ 0148 





030350 


104455 




030352 


000055 




030354 


014515 




030356 


006612 


5443 






5444 


030360 
030360 






030360 


104401 



TRAP OERDF 

.WORD 45 

. WORD EM5 

.WORD ERR7 



32$ 



ENDTST 



L10066: 



TRAP 



C$ETST 



CNOMAAO 

TEST 23 

5455 



G12 

DMV11 MCTRL DIAG 01 MACRO M1200 22-FEB-84 15{22 PAGE 73 
-- VIA'S SR MASTER CLEAR TEST 

.S8TTL TEST 23 -- VIA'S SR MASTER CLEAR TEST 



SEQ 0149 



03036; 



5456 










545 7 


030362 


004737 


003762 




5458 


030366 


103003 






5459 


030370 
030370 


104460 






5460 


030372 
030372 
030374 


104410 
000120 






5461 










5462 


030376 


004537 


004322 




5463 


030402 


120013 






5464 


030404 


000000 






5465 


030406 


012737 


000123 


002310 


5466 


030414 


013737 


002310 


002306 


5467 


030422 


012700 


120012 




5468 










5469 










5470 










5471 


030426 


004737 


005034 




5472 


030432 


103003 






54 73 


030434 
030434 


104460 






5474 


030436 
030436 
030440 


104410 
000054 






54 75 










54 76 


030442 


004737 


003762 




5477 


030446 


103003 






5478 


030450 
030450 


104460 






5479 


030452 
030452 
030454 


104410 
000040 






5480 










5481 


030456 


004537 


004064 




5482 


030462 


120012 






5483 


030464 


002312 






5484 










5485 


030466 


123/37 


002310 


002312 


5486 


0304 74 


00140/ 






5437 


030476 


012737 


000012 


002334 



f* 

}♦ TEST 23 -- VIA'S SR MASTER CLEAR TEST 

{* 

;♦ SR -- "SHIFT REGISTER" 

J* 

;* A 123 BYTE IS WRITTEN INTO SR AND THE REGISTER IS READ BACK AND CHECKED 
}♦ FOR 123, THEN, A MASTER CLEAR IS PERFORMED AND SR IS READ AND CHECKED FOR 
j* NO CHANGE. 
I* 



BGNTST 



JSR 
BCC 
ERROR 



PC.MSTCLR 
U 



T23:i 

jINIT DMV C START UP THE MAINT . LOOP 
j IF AN ERROR OCCURED, 
j REPORT IT £ 



ESCAPE TST 



1$ 



JSR 


R5.WRITEI 


ACR 









MOV 


0123.GDATA 


MOV 


GDATA,TDATA 


MOV 


0SR,R0 


[E'LL ' 


USE "STREG" TO 


JSR 


PC.STREG 


BCC 


5$ 


ERROR 





; EXIT 

j FORCE SR TO MODE 

: SETUP FOR CALL TO STREG 



TRAP 

TRAP 
.WORD 



CSERROR 

CSESCAPE 
L 10067 -, 



ESCAPE TST 



iLOAD £ TEST "SR" 

I IF NO ERROR HERE, PROCEED 

;ELSE, REPORT IT 

: 6 QUIT 



TRAP 

TRAP 
.WORD 



CJERROR 

CiESCAPE 
L 10067 -, 



5$ 



JSR 
BCC 
ERROR 



PC.MSTCLR 
10$ 



ESCAPE TST 



10$ 



JSR 

SR 
BDATA 

CMPB 

BLU 
MOV 



R5.READ 



GDATA.BOATA 
32 i 



j ISSUE THE MASTER CLEAR (STAY IN M-LOOP) 

;IF NO ERROR HERE, PROCEED 

{ELSE, REPORT IT 

TRAP 

} e QUIT 

TRAP 
.WORD 

j NOW READ THE "RESET" VALUE OF "SR" 

! (IT SHOULDN'T HAVE CHANGED) 



jWAS IT PROPERLY RESET? 

PES, THIS TEST IS DONE, EXIT 



C*ERROR 

CSESCAPE 

L10067-. 



V>SR£<1?>,RFGNUM |NQ! 



BUILD REGISTER fi POINTER 



H12 
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3 0137 SEQ 0150 

TEST 23 -- VIA'S SR MASTER CLEAR TEST 

5488 030504 GEDF EM5.ERR7 jREPORT MASTER CLEAR FAILURE 

» "DEVICE FATAL" ERROR 46 
030504 104455 TRAP CSERDF 

030506 000056 .WORD 46 

030510 014515 .WORD EM5 

030512 006612 .WORD F.RR7 

5489 

5490 030514 32*: ENDTST 

030514 L10067: 

030514 104401 TRAP CJETST 



112 



CNDMAAO 

TEST 24 

5501 



DMV11 MCTRL OIAG #1 MACRO M1200 
-- VIA'S ACR MASTER CLEAR TEST 



22 -FEB -84 15 {22 PAGE 74 



030516 



5502 








5503 


030516 


004737 


003762 


5504 


030522 


103003 




5505 


030524 








030524 


104460 




5506 


030526 








030526 


104410 






030530 


000114 




5507 








5508 


030532 


012737 


000252 002310 


5509 


030540 


013737 


002310 002306 


5510 


030546 


012700 


120013 


5511 








5512 








5513 








5514 


030552 


004737 


005034 


5515 


030556 


103003 




5516 


030560 








030560 


104460 




5517 


030562 








030562 


104410 






030564 


000060 




5518 








5519 


030566 


004737 


003762 


5520 


030572 


103003 




5521 


030574 








030574 


104460 




5522 


030576 








030576 


104410 






030600 


000044 




5523 








5524 


030602 


005037 


002310 


5525 


030606 


004537 


004064 


5526 


030612 


120013 




5527 


030614 


002312 




5528 








5529 


030616 


123737 


002310 002312 


5530 


030624 


001407 




5531 


030626 


012737 


000013 002334 


5532 


030634 







.SBTTL TEST 24 -- VIA'S ACR MASTER CLEAR TEST 

* «. ****+***+****++**** ***************** ****** ********************************* 
* 

* TEST 24 -- VIA'S ACR MASTER CLEAR TEST 
* 

* ACR »- "AUXILIARY CONTROL REGISTER" 
* 

* A 252 BYTE IS WRITTEN INTO ACR AND THE REGISTER IS REAO BACK AND CHECKED 

* FOR 252. THEN, A MASTER CLEAR IS PERFORMED AND ACR IS READ AND CHECKED FOR 

* 000, TO VERIFY THAT IT IS CLEARED BY MASTER CLEA*. 
* 

- -*************** ************************* *********************************** 



BGNTST 



JSR 
BCC 
ERROR 



PC.MSTCLR 
1$ 



T24: : 

jINIT DMV 6 START UP THE MAINT. LOOP 

{IF AN ERROR OCCURED, 
{REPORT IT 6 



1$ 



ESCAPE TST 



MOV $252, GDATA 
MOV GDATA.TDATA 
MOV GACR,R0 



EXIT 



{SETUP FOR CALL TO STREG 



TRAP 

TRAP 
.WORD 



C TERROR 

C5ESCAPE 
L 10070 -. 



NOW WE'LL USE "STREG" TO SET 6 CHECK "ACR" 



JSR 
BCC 
ERROR 



PC, STREG 
5$ 



{LOAD 6 TEST "ACR" 

{IF NO ERROR HERE, PROCEED 

{ELSE, REPORT IT 



ESCAPE TST 



{ 



£ QUIT 



TRAP 

TRAP 

.WORD 



C*ERROR 

CSESCAPE 
L10070-, 



5$ 



JSR 
BCC 
ERROR 



PC.MSTCLR 
10$ 



ESCAPE TST 



10$ 



CLR 
JSR 
ACR 
BOATA 

CMPB 
BEQ 
MOV 
GEDF 



GDATA 
R5,READ 



{ISSUE THE MASTER CLEAR CSTAY IN M-LOOP) 

;IF NO ERROR HERE, PROCEED 

{ELSE, REPORT IT 

TRAP 

{ £ QUIT 

TRAP 
.WORD 

jFOR TESTING PURPOSES LATER 

{NOW READ THE "RESET" VALUE OF "ACR" 



CSERROR 

CiESCAPE. 
L 10070 -. 



GDATA, BDATA [WAS IT PROPERLY RESET? 
32i {YES, THIS TEST IS DONE. EXIT 

$ACR6<17>,REGNUM {NO! BUILD REGISTER POINTER 
EM5.ERR7 {REPORT MASTER CLEAR FAILURE 

{ "DEVICE FATAL" ERROR #47 



SEQ 0151 



Q 0139 



CNDHAAO DMV11 MCTRL DIAG #1 

TEST 24 -- VIA'S ACR MASTER CLEAR TEST 

050634 104455 

030636 000057 

030640 014515 

030642 006612 
5533 
5534 030644 

030644 

030644 104401 



J12 
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SEQ 0152 



TRAP C$ERDF 

.WORD 4 7 

.WORD EM5 

.WORD ERR7 



32$; 



ENDTST 



L10070: 



TRAP 



C$ETST 



0140 



CNDMAAO 

TEST 25 

5545 
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-- VIA'S PCR MASTER CLEAR TEST 
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5546 
554 7 
5548 
5549 

5550 



5551 

5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 

5561 



5562 
5563 
5564 
5565 

5566 



5567 
5568 
5569 
5570 
55/1 
5572 
5573 
5574 
5575 
55/6 



030646 

030646 
030652 
030654 
030654 
030656 
030656 
030660 

030662 
030670 
030676 



030702 
030706 
030710 
030710 
030/12 
030712 
030714 

030/16 
030722 
030724 
030724 
030726 
030726 
030730 

030732 
030736 
030742 
030744 

030746 
030754 
030756 
030/64 



004737 
103003 

104460 

104410 
000114 

012737 
013737 
012700 



004737 
103003 

104460 

104410 
000060 

004 737 
103003 

104460 

104410 
000044 

005037 
004537 
120014 
002312 

123737 
001407 
012737 



003762 



000377 
002310 
120014 



005034 



002310 
002306 



003762 



002310 
004064 



002310 
000014 



002312 
002334 



.SBTTL TEST 25 -- VIA'S PCR MASTER CLEAR TEST 
t *** + *****# + * + +**** + #> ^+ ** * + + ^ 

* TEST 25 -•• VIA'S PCR MASTER CLEAR TEST 

* PCR -« "PERIPHERAL CONTROL REGISTER" 
+ 

* A 377 BYTE IS WRITTEN INTO PCR AND THE REGISTER IS READ BACK AND CHECKED 

* FOR 377. THEN, A MASTER CLEAR IS PERFORMED AND PCR IS READ AND CHECKED FOR 
+ 000. 

* 

- - + + t±+± * + + + + + + + +++ + + + + +++ +++ + *+ + + + * + + + *** + + ** + *++ + + * + + + + + + ** + + + * + * + ** + + + + + + * 



BGNTST 



JSR 
BCC 
ERROR 



PCMSTCLR 
1$ 



1* 



ESCAPE TST 



MOV 0377,GDATA 
MOV GDATA.TDATA 
MOV 0PCR.RO 



NOW WE'LL USE "STREG" TO SET 6 CHECK "PCR" 



T25j : 

INIT DMV C START UP THE MAINT 
IF AN ERROR OCCURED, 
REPORT IT 6 

EXIT 



SETUP FOR CALL TO STREG 



LOOP 



TRAP 

TRAP 
.WORD 



CSERROR 

C$ESCAPE 
L10071-. 



JSR 
BCC 
ERROR 



PC, STREG 
5$ 



ESCAPE TST 



;LOAD 6 TEST "PCR" 

{IF NO ERROR HERE, PROCEED 

{ELSE, REPORT IT 

: 6 QUIT 



TRAP 

TRAP 
.WORD 



CSFHROR 

C'LSf.APE 
1.10071- . 



5$ 



JSR 
BCC 
ERROR 



PCMSTCLR 
10$ 



ESCAPE TST 



10$ 



CLR 
JGR 
PCR 
BDATA 

CMPB 
BEQ 
MOV 
GEOF 



GOAT A 
R5.READ 



j ISSUE THE MASTER CLEAR (STAY IN M-LOOP) 

j IF NO ERROR HERE. PROCEED 

jELSE, REPORT IT 

TRAP 

j 6 QUIT 

TRAP 
.WORD 

{FOR TESTING PURPOSES LATER 

{NOW READ TIC "RESET" VALUE OF "PCR" 



CSERROR 

CJESCAPt 
L10071-, 



GDATA.BDATA {WAS IT PROPERLY RESET? 
32$ {YES. THIS TEST IS DONE. EXIT 

0PCR£<1/>.REGNUM iNO! BUILD REGISTER POINTER 
EM5.ERR7 {REPORT MASTER CLEAR FAILURE 

{ "DEVICE FATAL" ERROR 46 



SEQ 0153 



3 0141 
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TEST 25 - VIA'S PCR MASTER CLEAR TEST 
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SEQ 0154 



030764 
030766 
030770 
030772 

5577 

5578 030774 
030774 
030774 



104455 
000060 
014515 
006612 



104401 



TRAP CSERDF 

.WORD 48 

.WORD EM5 

.WORD ERR7 



32$ 



ENDTST 



L10071: 



TRAP 



C$ETST 



CNDMAAO 

TEST 26 

5589 
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-■■ VIA'S IER MASTER CLEAR TEST 



M12 
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SEQ 0155 



5590 
5591 
5592 
5593 

5594 



5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 

5607 



5608 
5609 
5610 
5611 

5612 



5613 
5614 
5615 

5616 
5617 

5618 
5619 
5630 
5621 



030776 

030776 
031002 
031004 
031004 
031006 
031006 
031010 



031016 
031024 



031036 
031042 

031044 
031044 
031046 

031046 
031050 

031052 
031056 
031060 
031060 
031062 
031062 
031064 

031066 
031074 

031100 
031102 

031104 
031112 
051114 



004757 
103003 

104460 

104410 
000122 



01273/ 
013737 



031032 012700 



004 737 
103003 

104460 

104410 
000062 

004737 
103003 

104460 

104410 
000046 

012737 
00453/ 

120016 
002312 

123737 

00140/ 
012737 



003762 



031012 105077 151334 



000377 
002310 
120016 



005034 



003762 



000200 
004064 



002310 
000016 



002310 
002306 



.SBTTL TEST 26 -- VIA'S IER MASTER CLEAR TEST 

j + **.+**+A*A**A****J.*+ **** + *** + + + + + + + * + + + + + + + + + + + + + + + + + + + M + + + + + + + + ** + + + + + * + + + + + 
I* 

{ * TEST 26 - VIA'S IER MASTER CLEAR TEST 

1 + 

5* IER -- "INTERRUPT ENABLE REGISTER" 

t* 

I* A 377 BYTE IS WRITTEN INTO IER AND THE REGISTER IS READ BACK AND CHECKED 

s* FOR 377. THEN, A MASTER CLEAR IS PERFORMED AND IER IS READ AND CHECKED FOR 

;+ 200. 
;* 

\ 



BGNTST 



T26: : 



JSR 


PCMSTCLR 


tINIT DMV £ START UP THE MAINT, 


LOOP 




BCC 


1$ 


iIF AN ERROR OCCURED, 






ERROR 




{REPORT IT 6 


TRAP 


C$ERROR 


ESCAPE 


TST 


i EXIT 


TRAP 

.WORD 


C*ESCAPE 
L10072-. 



1$ 



CLR3 QBSELO 

MOV 0377.GDATA 

MOV GDATA.TDATA 

MOV OIENR.RO 



i MAKE SURE NO Q-RUS INTERRUPTS RESULT FROM 
5 TESTING THE IER REGISTER 
j SETUP FOR CALL TO STREG 



NOW WE'LL USE "STREG" TO SET 6 CHECK "IER" 



JSR 
BCC 
ERROR 



PC.STREG 
5$ 



{LOAD £ TEST "IER" 

{IF NO ERROR HERE, PROCEED 

jELSE, REPORT IT 



ESCAPE TST 



5$ 



JSR 
BCC 
ERROR 



PC.MSTCLR 
10$ 



ESCAPE TST 







TRAP C5ERR0R 


1 


6 QUIT 


TRAP C*fc" SCAPE 
.WORD 1.10072- . 


{ISSUE 


THE MASTER CLEAR (STAT 


IN M-l.OOP) 


{IF NO 


ERROR HERE, PROCEED 




iFi.se. 


RFPORT IT 


TRAP C$ERROR 


$ 


& QUIT 


TRAP CU. SCAPE 
.WORD L10072-. 



002310 10$ 

002312 
002334 



MOV 
JSR 
IENR 
BDATA 

CMPB 

BEU 

MOV 



0200.GDATA 
R5.READ 



{FOR TESTING PURPOSES LATER 

jNUW READ THE "RESET" VALUE OF "ItR" 



GDATA, BDATA 

32$ 

#IENR£*17»,REGNUM 



;WAS IT PROPERLY RESET? 

{YES. THIS TEST IS DONE. EXIT 



{NO! 



BUILD REGISTER POINTER 



Q 0143 



N12 

CNDMAAO DMV11 MCTRL DIAG #1 MACRO M1200 22-FEB-84 15:82 PAGE 76-1 
TEST 26 -- VIA'S IER MASTER CLEAR TEST 

5622 031122 GEDF EM5.ERR7 {REPORT MASTER CLEAR FAILURE 

j "DEVICE FATAL" ERROR # 49 
031122 104455 TRAP C$EHOF 

031124 000061 .WORD 49 

031126 014515 .WORD EM5 

031130 006612 .WORD ERR7 

5623 

5624 031132 32$ J ENDTST 

031132 L10072: 

031132 104401 TRAP C$ETST 

5625 



SEQ 0156 



)144 



CNOMAAO DMV11 MCTRL DIAG 01 MACRO M1?00 
T EST 2? - ■ VIA TIMER 1 ONE- SHOT MODE 

567<> , SBTTl TEST 



B 1 6 

iV-FEB A4 \5\?e PAGE 77 



051154 

56 73 051154 

051154 

05X154 

Sb74 



IQ44Q£ 



VIA TIMF.R 1 ONE -SHOT MOD! 



TEST 27 



VIA TIMER 1 ONE SHOT MODE 



THIS TEST VERIFIES THAT THE TIMER 1 COUNTER IS OPERATIONAL IN ONE -SHOT 
MODE, IN EACH OF TWO SUBTESTS. 

IN THE FIRST SUBTEST, THE FOLLOWING IS P c RFORMEO t 

A MASTER CLEAR IS DONE ANO THE TIMER IS PLACED IN ONE -SHOT MODE BY 
SETTING BOTH ACR7 t ACR6 TO 0. 



the. program checks 
initially cleared. 



FOR THE "Tl" FLAG CBIT 6) IN THE IFR TO BE 



TILL (ADR 04) £ TIC-H (ADR 05) ARE BOTH LOADED WITH ?W (OCTAL). 
(THIS IS EQUIVALENT TO AAAA (HEX) 0,1 43,690 (DECIMAL).) LOADING 
T1C-H STARTS THE COUNTER, 

THE PROGRAM PERIODICALLY CHECKS THE COUNTER TO VERIFY THAT IT IS 
DECREMENTING AND THAT IT EVENTUALLY UNOERFLOWS PAST ANO CONTINUES 
TO DECREMENT. 

TIL L (ADR 04) IS LOADED WITH 001 L T1C-H (AOR 05) IS LOADED WITH 
000 IN ORO'R TO SET "Tl" WITH A QUICK UNDERFLOW, THE ••TV FLAG BIT 
IN IFR IS READ ANO CHECKED TO BE SET. 

TIC H, TILL. I TIL H ( ADDR' S 05, 06, t 07 RESP. ) ARE READ ANO AFTER 
EACH THE "Tl" INTERRUPT FLAG IS CHECKED TO BE STILL SET. 

TlC-L (ADDR OH IS READ ANO "Tl" IS CHECKED TO BE CLEARED. 

TIC M IS LOADED WITH AGAIN TO INITIATE A NEW COUNT DOWN (WHICH 
SHOULD UNOERFLGW ALMOST IMMEDIATE!. O ANO THE " T 1 •• BIT IN IFR IS 
CHECKED TO fJE SET AGAIN, 

TIL-L IS LOADED WITH 125 (OCTAL) AND "Tl" BIT IS CHECKED TO Bt STILL 

SET. 



T1C-H IS LOADED WITH 125, ANO THE 
CLEARED Br THE LOADING OF UC-H, 



Tl" BIT IS READ AND CHECKED TO Bfr 



IN THE SECOND SUBTEST, ALL OF THE ABOVE OPERATIONS ARE REPEATED. 

WITH ACR BIT 7 SET To 1. ANO ACR BIT 6 SET TO 0. • PB 7 (Bit 7 Of ORB) 
WILL BE MONITORED FOR ITS EXPECTED LEVELS DURING THIS SUBUS*. 

************* 4 + *+* ** * + * + + ♦ * * ***.*******♦***♦ ******* ******** ***************** 

BGNTST 

r ' • • • 

BGNSUB 



SEQ 0157 
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56 75 
56 76 
56 ? 7 
56 78 

5679 



5680 
5681 
5682 
5683 
5684 

5685 



5686 
568? 
5688 



5689 
5690 
5691 
5692 
5693 



5695 



5696 

569 7 
5698 
5699 
5700 

5701 



5702 
5703 
5704 
5 705 
5706 

5707 



5708 
5/09 
5710 
57U 

5/12 



031136 

031142 

031144 

031144 

031146 

031146 

031150 

031152 

031156 

031160 

031162 

031164 

031164 

031166 

031166 

031170 

031172 

031176 

031200 

031200 

031202 

031204 

031206 

031212 

031214 

031216 

031220 

031220 

031222 

0Sl22-> 

03122a 

031226 

031232 

031234 

031236 

031240 

031240 

031242 

031242 

031244 

031246 

031252 

031254 

031256 

031260 

031260 

031262 

031262 

031264 

031266 

031272 

031274 

031276 

031300 

031300 

0313Q* 



004 737 
103003 

104460 

104410 
004742 
00453 7 
OOOOOO 
000000 
103003 

104460 

104410 
004722 
004737 
102002 

104410 
002202 
103143 
004537 
120004 
002450 
103003 

104460 

104410 
004666 
004537 
120005 
002452 
103003 

104460 

1G4410 
004646 
004537 
120006 
002454 
103003 

104460 

104410 
004626 
004537 
12000 7 
002456 
10300* 

1Q44&Q 



003762 



004660 



1*1 



036146 



004064 



004064 



004064 



004064 



JSR 
BCC 
ERROR 


PC.MSTCLR 
It 


ESCAPE 


TST 


JSR 





BCC 

FRROR 


R5,IN1TU 

.♦10 


ESCAPE 


TST 


JSR 
BVC 
ESCAPE 


Pr.GETTl 
. »6 

sue 


BCC 

JSR 

TICL 

TMP4 

BCC 

ERROR 


61 

R5.READ 

,♦10 


F SCAPE 


TST 


JSR 

TICH 

TMP5 

BCC 

ERROR 


R5.READ 

.♦10 


FSCAPF 


TST 


JSR 

TILL 

TMP6 

BCC 

tRROR 


R5.READ 
. .10 


f SCAPE 


TS1 


JSR 
III H 

f*p; 

BCC 
tRROR 


RS.Ht.AU 

.♦10 


tliCAPt 


TUI 



iINIT DMV C ENTER M-t OOP 

I IF NO ERROR, PROCFED WITH TESTING 

I ELSE, REPORT ERROR 

TRAP CIERROR 
» C EXIT TEST 

TRAP C* ESCAPE 

.WORD 1.10073 . 
I INITIALIZE TIMER * i 
I ••> LATCHES 

\ MODE 6 "U" INT, ENABLE FLAG CLEARED 

I IF NO FRROR, PROCEFD 
(ELSE, REPORT IT 

TRAP CIERROR 
I AND EXIT THIS TEST 

TRAP C IE SCAPE 

.WORD 1.10073- . 
j IS "Tl" SET? 
j IF NO tRROR, PROCEED 
jELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP CIESCAP?. 

.WORD L 10074 ~, 
j NO, GOOD. 
jGET TICL FOR ERROR MESSAGE 



lir NO ERrfOR, PROCEED 
lELSE, REPORT IT 



I 



AND EXIT THIS TEST 



jGET TICH FOR ERROR MESSAGE 



I IF NO ERROR. PROCEED 
I ELSE, REPORT IT 

i AND EXIT THIS TEST 



jGET TILL FOR ERROR MESSAGE 



I IF NO ERROR. PROCEED 
iCl SE, report IT 

1 AND EXIT THIS TEST 



IGET Til H FUR tFRCR MESSAGE 



i U H\: tRROM, PROCFED 
;ELStt REPORT IT 



TRAP 



TRAP 

7 RAP 
.WORD 



TRAP 

TRAP 
.WORD 



C* ERROR 



TRAP CIESCAPE 
.WORD L10073-, 



CIERROR 

Cff SCAPt 
L 10073 . 



CltRROR 

CUsCAPt 

t 10073 , 



SEQ 0158 



4 



AND LXIT THIS* TEST 



TRAP 



C*£RRUR 



)146 
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5EQ 0159 



5714 
5715 
5716 
5717 
S718 



:> 



19 



5720 



5721 



572? 
5723 
5724 
5725 
5726 
5727 
5?28 
5729 
5750 

5731 



5732 
5733 
5734 



5735 
5736 
5737 
5738 

5739 
5740 

5741 



5742 
5/4i 
5/44 
5/45 
5746 



031302 
031304 
031306 
031312 
031314 
031316 
031320 
031320 
03132^ 
031322 
031324 
031326 

031326 
051530 
051332 
031334 
031336 
031336 
031542 
031346 
031350 
03135? 



031356 
031364 
031370 
031372 
031374 
031376 
031376 
031400 
031400 
031402 
031404 
031410 
031412 
031412 
031414 
031416 
031420 
031424 
031426 
031430 
031432 
C31432 
031434 
031434 
051436 
051440 
031444 
031446 
051450 
051452 
031453 



104410 
004606 
004537 
120013 
002466 
103003 

104460 

104410 
004566 



104455 
000062 
016067 
010762 

012746 
012 746 
010600 
104415 
062706 



004064 



013174 
000001 



000004 



112737 0OOO02 002453 

004537 004310 

120005 

002453 

103003 

104460 

104410 

004510 

004737 036146 

102002 

104410 

0017 70 

103036 

00453 7 004064 

120004 

002450 

103003 

104460 

104410 

004454 

00453 7 004064 

120005 

002452 

10300: 

104460 



R5.REA0 



JSR 

ACR 

TMPB 

BCC . *10 

ERROR 

ESCAPE TST 



iGET ACR FOR ERROR MESSAGE 



TRAP CIESCAPF 
.WORD L10073-. 



GEOF 



EM50A.ERR50 



PRINTX 0FMT50M 



MOVB 


02, TMP5*1 


JSR 


R5 f WRITE 


TlCH 




TMP5>1 




BCC 


,»10 


ERROR 




ESCAPE 


TST 



JSR PC.GETT1 
BVC .-6 
ESCAPE SUB 



BCC 
JSR 

TICL 

TMP4 

BCC 

ERROR 



6$ 
R5.READ 



.'10 



ESCAPE TST 



JSR 

TlCH 

TMP5 

BCC 

ERROR 



R5.READ 



.♦10 



I IF NO ERROR. PROCEED 

jELSE, REPORT IT 

TRAP C1ERR0R 

I AND EXIT THIS TEST 

TRAP CiESCAPE 

.WORD 1.10073 •. 

»YES, REPORT IT'S NOT BEING CLEARED 8 INIT. 

j "DEVICE FATAL" ERROR 50 

TRAP CIERDF 

. WORD 50 

. WORO EM50A 

.WORD ERR50 

\ 6 SAY THE COUNTERS HAVEN'T BEEN I OADED YET! 

MOV Of MT50M, .(SP) 

MOV 0! , (SP) 

MOV SP.RO 

TRAP CtPNTX 

ADD 04, SP 



I INIT TIMER 1 BY WRITING INTO 
lUC-H CADDR 051 

j IF NO ERROR, PROCEED 

jELSE, REPORT IT 

TRAP CJERROR 

? AND EXIT THIS TEST 

TRAP C (ESCAPE 
.WORD L10073-. 

j IS "Tl" SET? 

I IF NO ERROR, PROCEED 

jELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP CIESCAPE 
.WORD L 10074- . 

I NO, GOOD, 

jGET TICL FOR ERROR MESSAGE 



j IF NO ERROR, PROCEED 
jELSE, REPORT IT 

I AND EXIT THIS TEST 



j GET TlCH FOR ERROR MESSAGE 



i V NO ERROR, PROCEED 
j ELSE, REPORT IT 



TRAP 

TRAP 
.WORD 



CiERROR 
1.100/3 . 



TRAP 



CU'RROR 



D147 
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SEQ 0160 



5747 



5748 
5749 
5750 
5751 
5752 

5753 



5754 



5755 



5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 

5764 



5765 
5766 
5767 
5768 
5769 
5770 

5771 



5772 
5773 
5774 
5775 
5776 
577 7 

5778 



5779 
5 780 
5781 
5/82 



031454 
031454 
031456 
031460 
031464 
031466 
031470 
031472 
0314 72 
031474 
031474 
031476 
031500 

031500 
031502 
031504 
031506 
031510 
031510 
031512 



031514 
031520 
031522 
031524 
031526 
031526 
031530 
031530 
031532 
031534 
031542 
031546 
031550 
031552 
031554 
031554 
031556 
031556 
031560 
031562 
031570 
031574 
031576 
031600 
031602 
031602 
031604 
031604 
031606 
031610 
031614 
031615 



104410 

004434 

004537 004064 

120007 

002456 

103003 

104460 

104410 
004414 



104455 
000063 
016135 
010762 

104410 
001672 



004537 004064 
120013 
002466 
1C3003 

104460 



104410 
004360 
112737 
004537 
120002 
002445 
103003 

104460 

104410 
004332 
112737 
004537 
120000 
002441 
103003 

104460 

104410 

004 304 

00453 7 

252 

252 



0003 7/ 
004310 



002445 



000377 
004310 



002441 



036114 



ESCAPE 


TST 


J5R 

T1L.H 

TMP7 

BCC 

ERROR 


R5.READ 
,♦10 


ESCAPE 


TST 


GEDF 


EM50B.ERR50 



I AND EXIT THIS TEST 

iGET T1LH FOR ERROR MESSAGE 



TRAP CIESCAPE 
.WORD L10073-. 



ESCAPE SUB 



j IF NO ERROR, PROCEED 

jELSE, REPORT IT 

TRAP CSERROR 

I AND EXIT THIS TEST 

TRAP CiESCAPE 

.WORD L 10073 -. 

jYES, REPORT IT'S NOT BEING CLEARED 3 INIT. 

I "DEVICE FATAL" ERROR 51 

TRAP CIERDF 

.WORD 51 

.WORD EM50B 

.WORD ERR50 

jAND EXIT SUBTEST 

TRAP CSESCAPE 

.WORD L10074 , 



6$: 


JSR 
ACR 
TMPB 


R5.READ 




BCC 


,♦10 




ERROR 






ESCAPE 


TST 




MOVB 


0377,TMP2*1 




JSR 


R5, WRITE 




DDRB 






TMP2»1 






BCC 


.♦10 




ERROR 






ESCAPE 


TST 




MOVB 


0377,TMPO»i 




JSR 


R5, WRITE 




ORB 






TMPOU 






BCC 


,♦10 




ERROR 






ESCAPE 


TST 




JSR 


R5.L0DT1C 


/*: 


.BlrTF. 


252 


8S: 


.BYTE 


252 



jGET ACR FOR LATER ERROR MESSAGES 



j IF NO ERROR, PROCEED 
;ELSE, REPORT IT 

j AND EXIT THIS TEST 



I INITIALIZE ORB FOR INPUT/OUTPUT 



TRAP 

TRAP 
.WORD 



j IF NO ERROR, PROCEED 
I ELSE, REPORT IT 

; AND EXIT THIS TEST 



i SETUP VALUE FOR ORB 
iDO IT 



j IF NO ERROR, PROCEED 
{ELSE, REPORT IT 



TRAP 

TRAP 
.WORD 



TRAP 



J 



AND EXIT THIS TEST 



ll.OAD TIMER # 1 



CSERROR 

C1ESCAPL 
L10073-. 



CJERROR 

CJESCAPt 
L10U73-, 



C$ ERROR 



TRAP CtESCAPf 
.WORD L10073-. 
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SEQ 0161 



5785 






5784 






5785 051616 


004 737 


036332 


5786 031622 


102002 




5787 031624 






031624 


104410 




031626 


001556 




5788 031630 


103404 




5789 031632 






031632 


104455 




031634 


000064 




031636 


017305 




031640 


005276 




5790 031642 


004737 


036204 


5791 






5792 






5793 031646 


103003 




5794 031650 






031650 


104460 




5795 031652 






031652 


104410 




031654 


004236 




5796 031656 


000240 




5797 031660 


000240 




5798 031662 


000240 




5799 031664 


004537 


004064 


5800 031670 


120004 




5801 031672 


002450 




5802 031674 


103003 




5803 031676 






031676 


104460 




5804 031700 






031700 


104410 




031702 


004210 




5805 031704 


123737 


002450 031614 


5806 031712 


001024 




5807 031714 


00453? 


004064 


5808 031720 


120005 




5809 031722 


002452 




5810 031724 


103003 




5811 031726 






031726 


104460 




5812 031730 






031730 


104410 




031732 


004160 




5813 031734 


004537 


004064 


5814 031740 


120006 




5815 031742 


002454 




5816 031744 


103003 




5817 031746 






031746 


104460 




5818 031750 






031/50 


10441C 




031752 


004140 




5819 031/54 







JSR PC.GETPB7 
BVC , *6 
ESCAPE SUB 



BCS 9$ 

GEDF EM50W.ERR1 



9$ 



JSR 


PC.KICKT1 


BCC 


.♦10 


ERROR 




ESCAPE 


TST 


NOP 




NOP 




NOP 




JSR 


R5.READ 


T1CL 




TMP4 




BCC 


.♦10 


ERROR 




ESCAPE 


TST 


CMPB 


TMP4.7* 


BNE 


12* 


JSR 


R5.READ 


T1CH 




TMP5 




BCC 


. »10 


ERROR 




ESCAPE 


TST 


JSR 


R5.READ 


TILL 




TMP6 




BCC 


,♦10 


ERROR 




ESCAPE 


TST 


GEDF 


EM50D.ERR50 



I IT IS, 
I IF NOT 

I 



jGET "PB7". IS IT SET? 

I IF NO ERROR, PROCEED 

I ELSE, IT'S ALREADY BEEN REPORTED - EXIT 

TRAP CfESCAPF 
.WORD L10074-, 
(SET BY LOADING DDR8 6 ORB ABOVE) 
1IMER 1 CLEARED IT!!! 
"DEVICE FATAL" ERROR 52 

TRAP C*ERDF 
.WORD 52 
.WORD EM50W 
.WORD ERR1 

j IT TAKES SO MUCH TIME TO CHECK FOR (£ MAYBE 

; EVEN REPORT) THIS ERROR THAT WE SHOULD 

\ KICK OFF THE TIMER AGAIN 

j IF NO ERROR, PROCEED 

{ELSE, REPORT IT 



AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



CIERROR 

CI ESCAPE 

L10073-. 



;NOW WAIT A LITTLE WHILE -- LET TlCL CHANGE 
jREAD THE LOW COUNTER 



j IF NO ERROR, PROCEED 

)ELSE, REPORT IT 

TRAP CIERROR 

j AND EXIT THJS TEST 

TRAP CIESCAPE 
.WORD L10073-. 

I MAKE SURE THE COUNTER IS DECREMENT ING 

j IT IS, NOW SEE IF THE HIGH COUNTER IS TOO 

;GET T1CH FOR ERROR MESSAGE 



l IF NO ERROR, PROCEED 
{ELSE, REPORT IT 



; 



AND EXIT THIS TEST 



jGET TILL FOR ERROR MESSAGE 



TRAP 

TRAP 
.WORD 



CIERROR 

CIESCAPE 
L10073-, 



l IF NO ERROR, PROCEED 
jEL.Se, REPORT IT 

TRAP 
j AND EXIT THIS TEST 

TRAP 
.WORD 
;IT WASN'T - REPORT THE ERROR 
i "DEVICE FATAL" ERROR i> 53 



CI ERROR 

C*f sC'W 
L100M-, 
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031754 


104455 




031756 


000065 




031760 


016251 




031762 


010762 




5820 031764 


012703 


000100 


5821 031770 


004537 


004064 


5822 031774 


120005 




5823 031776 


002452 




5824 032000 


103003 




5825 032002 






032002 


104460 




5826 032004 






032004 


104410 




032006 


004104 




5827 032010 


123737 


002452 031615 


5828 032016 


001037 




5829 032020 


077315 




5830 032022 


004537 


004064 


5831 032026 


120015 




5832 032030 


0024 72 




5833 032032 


103003 




5834 032034 






032034 


104460 




5835 032036 






032036 


104410 




032040 


004052 




5836 032042 


004537 


004064 


5837 032046 


120006 




5838 032050 


002454 




5839 032052 


103003 




5840 032054 






032054 


104460 




5841 032056 






032056 


104410 




032060 


004032 




5842 032062 


004537 


004064 


5843 032066 


120007 




5844 032070 


002456 




5845 032072 


103003 




5846 0320^4 






03^074 


104460 




5847 032076 






0320/6 


104410 




032100 


004012 




5848 032102 






032102 


104455 




032104 


000066 




032106 


016305 




032110 


010762 




5849 032112 






052112 


104410 




032114 


001270 




5850 






5851 






5852 032116 


11273/ 


0003// 002445 


5853 032124 


004537 


004310 



12*: 


MOV 


0100, R3 


13$ j 


JSR 

TICH 

TMP5 


R5,READ 




8CC 


,♦10 




ERROR 






ESCAPE 


1ST 




CMPB 


TMP5,8* 




BNE 


17$ 




SOB 


R3,13$ 




JSR 


R5.READ 




IFR 






TMPO 






BCC 


.♦10 




ERROR 






ESCAPE 


TST 




JSR 


R5.READ 




TILL 






TMP6 






BCC 


. »10 




ERROR 






ESCAPE 


TST 




JSR 


R5.READ 




T1LH 






TMP7 






BCC 


,♦10 




ERROR 






ESCAPE 


rsT 




GEDF 


{-M50E.ERR50 



1/5 



ESCAPE SUB 



MOVB 03//,!MP2»l 
JSR R5.WRITF 



lINIT. TIMEOUT VALUE 
j READ THE HIGH COUNTER 



TRAP 
.WORD 
.WORD 
.WORD 



j IF NO ERROR, PROCEED 
(ELSE, REPORT IT 

TRAP 

i AND EXIT THIS TEST 

TRAP 
.WORD 

{DID IT CHANGE FROM THE LOADED VALUE? 

jtES, PROCEED WITH TESTING 

{NO, IF NO TIMEOUT, TRY AGAIN 

{GET IFR FOR ERROR MESSAGE 



I IK NO ERROR, PROCEED 
{ELSE, REPORT IT 

: AND EXIT THIS TEST 



;GET TILL FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

: AND EXIT THIS TEST 



{GET T1LH FOR ERROR MESSAGE 



TRAP 



TRAP 

TRAP 
.WORD 



SEQ 0162 



CiERDF 
53 

EM50D 
ERR50 



C t ERROR 

CIESCAPE 
L1O073-. 



C5ERR0R 



TRAP CtESCAPE 
.WORD L10073-. 



CJERROR 

CJE5CAPE 
L1O073- , 



:IF NO ERROR, PROCEED 

lELSb, REPORT IT 

TRAP CtERROR 

j AND EXIT THIS TEST 

TRAP C*ESCAPE 

.WORD L 100/3 -, 

;ELSE, REPORT THAT HtGH COUNTER ISN'T RUNNING 

5 "DEVICE FATAL" ERROR 54 

TRAP CSERDF 

.WORD 54 

,W0RO EM50E 

.WORD fcRRSO 

j IN THAT CASE, WE CAN'T PROCEED WITH TESTING ELIHER 

TRAP CSF'>CAPt 

.WORD 110074 -. 



j INITIALIZE ORB FOR INPUT/OUTPUT 
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5854 
5855 
5856 
5857 

5858 



5859 
5860 
5861 
5862 
5863 
5864 

5865 



5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 



5874 
5875 
5876 
5877 
5878 
5879 

5880 



5881 
5882 
5883 
5884 
5885 

5886 



5887 



VIA TIMER 1 ONE-SHOT MODE 



032130 
032132 
032134 
032136 
032136 
032140 
032140 
032142 
032144 
032152 
032156 
032160 
032162 
032164 
032164 
032166 
032166 
032170 
032172 
032176 
032177 



032200 
032204 
032206 
032206 
032210 
032212 
032214 
032220 
032222 
032224 
032226 
03222b 
032230 
032230 
032232 
032234 
032240 
032242 
032244 
032246 
032246 
032250 
032250 
032252 
032254 



120002 
002445 
103003 

104460 

10^410 

003750 

023737 002440 

004537 004322 

120000 

000030 

103003 

104460 

104410 
003722 
004537 036114 

001 

000 



004 737 
102002 

104410 
001174 
103426 
004537 
120006 
002454 
103003 

104460 

104410 
003660 
004537 
120007 
002456 
103003 

104460 

104410 
003640 
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OORB 

TMP2*1 

BCC 

ERROR 


.♦10 






ESCAPE 


TST 


002441 




CMP 

JSR 

ORB 

30 

BCC 

ERROR 


TMP0.TMP0>1 
R5.WRITEI 

. »10 






ESCAPE 


TST 




18$: 
19$: 


JSR 

.BYTE 

.BYTE 


R5.L0DT1C 

1 





036146 



004064 



004064 



032254 104455 

032256 000067 

032260 016341 

032262 010762 

5888 032264 
032264 104410 
032266 001116 

5889 032270 004737 036332 



I IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

i AND EXIT THIS TEST 



sCLEAR PB7 BY WRITING INTO ORB 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$ESCAPE 
L10073-. 



{ (THIS CLEARS DTR 6 RTS! ALSO) 

j IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP C$ERROR 

} AND EXIT THIS TEST 

TRAP OESCAPE 
.WORD L 10073 -. 

j RE -LOAD TIMER ff i UHH A VALUE WHICH CAUSE AN 

{ALMOST IMMEDIATE TIMEOUT 

j (ADDRESS OF HIGH BYTE FOR TlC-H (ADDR 05)) 



JSR PC,GETT1 
BVC . *6 
ESCAPE SUB 



BCS 

JSR 

TILL 

TMP6 

BCC 

ERROR 


20$ 
R5.READ 

.♦10 


ESCAPE 


TST 


JSR 

TILH 

TMP7 

BCC 

ERROR 


R5.READ 
.♦10 


ESCAPE 


TST 


Gl'DF 


EM50F,ERR50 



ESCAPE SUB 



iUAS "Tl" SET BY THE ABOVE OPERATION? 

iIF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP C$ESCAPE 
.WORD L 10074 -. 

{YES, OK -- CONTINUE ERROR CHECKING 

{GET TILL FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
{ELSE, REPORT IT 



J 



AND EXIT THIS TEST 



{GET TILH FOR ERROR MESSAGE 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$ESCAPE 
L 10073 ••, 



20$ 



JSR 



PC.GETPB7 



{IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP 

i AND EXIT THIS TEST 

TRAP 
.WORD 

I NO, BAD NEWS! REPORT THE FAILURE 

! "DEVICE FATAL" ERROR 55 

TRAP 
.WORD 
.WORD 
.WORD 

i AND GET OUT OF SUBTEST 

TR4P 
.WORD 

iGET "PB7". IS IT CLEARED? 



C$ERROR 

C$ESCAPE 

L10073 . 



C$t-Rl)F 

55 

EM50> 

ERR50 

CJfcSCAPfc 

L10074-. 



SEQ 0163 



CNDMAAO DMV11 MCTRL DIAG 01 



Q 0151 



TEST 27 


-- VIA 


TIMER i> 1 ONE-SJ 


5890 


032274 


102002 


5891 


03227S 






032276 


104410 




032300 


001104 


5892 


032302 


103024 


5893 


032304 


004537 004064 


5894 


032310 


120006 


5895 


032312 


002454 


5896 


032314 


103003 


5897 


032316 






032316 


104460 


5898 


032320 






032320 


104410 




032322 


003570 


5899 


032324 


004537 004064 


5900 


032330 


120007 


5901 


032332 


002456 


5902 


032334 


103003 


5903 


032336 






032336 


104460 


5904 


032340 






032340 


104410 




032342 


003550 


5905 


032344 






032344 


104455 




032346 


000070 




032350 


017305 




032352 


010762 


5906 


032354 


004537 004064 


5907 


032360 


120005 


5908 


032362 


002452 


5909 


032364 


103003 


5910 


032366 






032366 


104460 


5911 


032370 






032370 


104410 




032372 


003520 


591? 


03237^ 


004737 036146 


591? 


032400 


102002 


5914 


032402 






032402 


104410 




032404 


001000 


5915 


032406 


103425 


5916 


032410 


00453 7 004064 


5917 


032414 


120006 


5918 


032416 


002454 


5919 


032420 


103003 


5920 


032422 






032422 


104460 


5921 


032424 






032424 


104410 




032426 


003464 


5922 


032430 


004537 004064 


5923 


032434 


120007 


59?4 


032436 


002456 


5925 


032440 


103003 
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BVC 
ESCAPE 


. *6 

SUB 




BCC 

JSR 

TILL 

TMP6 

BCC 

ERROR 


40$ 

RS.READ 

,♦10 




ESCAPE 


TST 




JSR 

TILH 

TMP7 

BCC 

ERROR 


R5.READ 
,♦10 




ESCAPE 


TST 




GEDF 


EM50W.ERR50 



40$ 



JSR 


R5.READ 


UCH 




TMP5 




BCC 


.♦10 


ERROR 




ESCAPE 


TST 



JSR PC.GETTi 
BVC . *6 
ESCAPE SUB 



BCS 21$ 

JSR RS.READ 

TILL 

TMP6 

BCC . »10 

ERROR 

ESCAPE TST 



JSR 
TILH 
TMP/ 
BCC 



RS.READ 



,*10 



SEQ 0164 



I IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED - EXIT 

TRAP CSESCAPE 
.WORD L10074-. 

I IF CLEARED. DDRB IS STILL IN CONTROL OF IT 

jGET TILL FOR ERROR MESSAGE 



5 IF NO ERROR, PROCEED 
j ELSE. REPORT IT 

i AND EXIT THIS TEST 



(GET TILH FOR ERROR MESSAGE 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$E SCAPE 
L10O73-. 



I IF NO ERROR, PROCEED 

lELSE, REPORT IT 

TRAP C$ERROR 

; AND EXIT THIS TEST 

TRAP C$ESCAPE 
.WORD L10073-. 

{ELSE, IT'S BEING SET BY TIMER 1 IN MODE 0) 

} "DEVICE FATAL" ERROR * 56 

TRAP C$LRDF 
.WORD 56 
.WORD EM50W 
.WORD ERR50 

{READ T1C-H CADDR 05) TO SEE IF THIS CLEARS "Tl" 

l C THIS VALUE ISN'T CHECKED BECAUSE IT CAN BE 

, ALMOST ANYTHING) 

{IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP CiERROR 

{ AND EXIT THIS TEST 

TRAP CJESCAPE 
.WORD L10073-, 

{PUP THE CURRENT "Tl" VALUE INTO THE CARRY BIT 

{IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED -- EXIT 

TRAP C$ESCAPE 
.WORD L10074-, 

»IF SET, READING UCH DIDN'T CLEAR IT — OK* 

{GET TILL FOR ERROR MESSAGE 



j IF NO ERROR, PROCEED 
{ELSE, REPORT IT 



TRAP 



CSERROR 



1 



AND EXIT THIS TEST 



{GET TILH FOR ERROR MESSAGE 



j IF NO ERROR, PROCEED 



TRAP CJESCAF 
.WORD L100 7 J- 
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5926 032442 
032442 104460 

5927 032444 
032444 104410 
032446 003444 

5928 032450 



5929 
5930 
5931 
5932 
5933 
5934 
5955 

5936 



5937 
5938 
5939 
5940 
5941 
5942 
5943 

5944 



5945 



5946 
594 7 
5948 
5949 
5950 



5951 
5952 
5953 
5954 
5955 
5956 

5957 



595ft 



032450 
032452 
032454 
032456 
032460 

032462 
032466 
032470 
032472 
032474 
032474 
032476 
032476 
032500 
032502 
032510 
032512 
032516 
032520 
032522 
032524 
052524 
032526 
032526 
032530 
032532 

032532 
032534 
032536 
032540 
032542 

032544 
032550 
032552 
032552 
032554 
032556 
032560 
032564 
032566 
032570 
032572 
032572 
032574 
032574 
032576 
032600 



104455 
000071 
016406 
010762 
000507 

004537 004064 
120006 
002454 
103003 



104460 

104410 
003412 
123737 
001415 
004537 
120007 
002456 
103003 

104460 

104410 
003362 



104455 
000072 
016450 
010762 
000456 

004737 
102002 

104410 
000630 
103415 
004537 
120007 
002456 
103003 

104460 

104410 
003314 



21$J 



002454 032176 
004064 



036146 



23$ 



004064 



ERROR 
ESCAPE TST 

GEDF EM50G.ERR50 



BR 


28$ 


JSR 


R5.READ 


TILL 




TMP6 




BCC 


. flO 


ERROR 




ESCAPE 


TST 


CMPB 


TMP6.18* 


BEQ 


23$ 


JSR 


R5.READ 


TILH 




TMP7 




BCC 


, *10 


ERROR 




ESCAPE 


TST 


GEDF 


EM50H.ERR50 



BR 


28$ 


JSR 
BVC 
ESCAPE 


PC.GETT1 

. »6 

SUB 


BCS 

JSR 

TILH 

TMP7 

BCC 

FRROR 


24$ 
R5.READ 

. *10 


ESCAPE 


TST 


GEDF 


EM5OI.ERR50 







SEQ 0165 


{ELSE, REPORT IT 








TRAP 


C$ERROR 


j AND EXIT THIS TEST 








TRAP 


C$ESCAPE 




.WORD 


L10O73-. 


j IF CLEARED! BAD VIA CHIP! 






j "DEVICE FATAL" ERROR 57 






TRAP 


C$EROF 




.WORD 


57 




.WORD 


EM50G 




.WORD 


ERR50 



, BYPASS THE REST OF THIS SECTION OF TESTING 
{READ T1L-L C ADOR 06) 



j THIS SHOULD RETURN A 001 
I IF NO ERROR, PROCEED 
{ELSE, REPORT IT 



TRAP 



C$ERROR 



; AND EXIT THIS TEST 

TRAP C$ESCAPE 
.WORD L10073-. 

{CHECK TIL L (ADDR 06) AGAINST LOADED VALUE 

j IF SAME, PROCEED 

jGET TILH FOR ERROR MESSAGE 



t IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP C$ERROR 

j AND EXIT THTS TECT 

iRAP C$ESCAPE 

.WORD L10073-* 

{ELSE, REPORT BAD LOAD OF TlL-L (ADDR 06) 

{ "DEVICE FATAL" ERROR 58 

TRAP CSERDF 

.WORD 58 

.WORD EM50H 

.WORD ERR50 

{BYPASS THE REST OF THIS SECTION OF TESTING 

tIS "Tl" STILL SET? 

{IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP C$ESCAPE 
.WORD L10074-, 

{YES, ALL'S OK 

{GET TILH FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
;ELSE, REPORT IT 

: AND EXIT THIS TEST 



i NO: BAD VIA CHIP! 



TRAP 

TRAP 
.WORD 



CSE-RROR 

L$[ SCAPE 

L10073-. 



Q 0153 
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5959 
5960 
5961 
5962 
5963 
5964 
5965 

5966 



5967 
5968 
5969 



032600 
032602 
032604 
032606 
032610 



59/0 
5971 
5972 
SV. 73 

59"'4 



5975 
5976 



597/ 
5978 
5979 
5980 
5981 
5982 
5983 
5984 

5985 



5986 
598 7 
5988 



r>989 

5990 



104455 
000073 
016536 
010762 
000433 



032612 004537 
032616 120007 
032620 002456 
032622 103003 
032624 
032624 
032626 
032626 



004064 



24$ 



104460 
104410 



032630 003262 

03263?.' 123737 002456 032177 

032640 001405 

032642 



BR 


28$ 


JSR 

TILH 

TMP7 

BCC 

ERROR 


R5.READ 
,+10 


ESCAPE 


TST 


CMPB 

BEQ 

GEDF 


TMP7,19$ 

26$ 

EM50J.ERR50 



032642 
032644 
032646 
032650 
032652 

032654 
032660 
032662 
032662 
032664 
032666 
032670 

032670 
032672 
032674 
032676 



032700 
032704 
032/06 
032710 
032712 
032712 
032714 
032714 
032716 
032720 
032724 
032726 
032/26 
032/30 
032 /32 
032734 



104455 
000074 
016600 
010762 
000412 

004737 036146 
102002 

104410 
000520 
103404 



104455 
000075 
016666 
010762 



004537 
120004 
002450 
103003 

104460 

104410 
003174 
004737 
102002 



BR 



26$ : 



004064 



28$ j 



036146 



104410 
000454 
103024 
004537 004064 



28$ 



JSR PC.GETT1 
BVC . *6 
ESCAPE SUB 



BCS 28$ 

GEDF EM50K.ERR50 



JSR 


R5.READ 


T1CL 




TMP4 




BCC 


, *10 


ERROR 




ESCAPE 


TST 


JSR 


PC.GETT1 


BVC 


. »6 


ESCAPE 


SUB 


BCC 


29$ 


JSR 


R5.READ 



SEQ 0166 



j "DEVICE FATAL" ERROR 59 

TRAP CtERDF 

.WORD 59 

.WORD EM50I 

.WORD ERR50 

jBYPASS THE REST OF THIS SECTION OF TESTING 

{READ T1L-H (ADDR 07) 



jTHIS SHOULD RETURN A 000 
I'xF NO ERROR, PROCEED 
{ELSE, REPORT IT 



TRAP 



C$ERROR 



I AND EXIT THIS TEST 

TRAP CSESCAPE 
.WORD L 10073 -. 

;CHf.CK T1L-H CADDR 07) AGAINST LOADED VALUE 

{IF SAME, PROCEED 

{ELSE, REPORT BAD LOAD OF TILH (ADDR 07) 

j "DEVICE FATAL" ERROR 60 

TRAP CSERDF 
.WORD 60 
.WORD EM50J 
.WORD ERR50 

{BYPASS THE REST OF THIS SECTION OF TESTING 

{IS "\l" STILL SET? 

{IF NO ERROR, PROCEED 

;ELSE, IT'S ALREADY BEEN REPORTED - EXIT 

TRAP C$ESCAPr 
.WORD 

{YES, ALL'S OK 

{NO! BAD VIA CHIP! 

j "DEVICE FATAL" ERROR 61 

TRAP 
.UORD 
.WORD 
.WORD 



L 10074 



C$ERDt- 

61 

F.M50K 

ERR50 



{READ TIC L CADDR 04) 

{(THIS VALUE ISN'T CHECKED BECAUSE IT CAN Bh 

, ALMOST ANYTHING) 

{IF NO ERROR, PROCEED 

{ELSE, REPORT IT 



AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



C$F.RROR 

CJFSCAPE 
L 10073 -. 



lIS "Tl" CLEARED NOW 

j IF NO ERROR, PROCEED 

j ELSE, IT'S ALREADY BEEN REPORTED - EXIT 

TRAP CSf'-CAPt 
.WORD L10074-. 

I 1 ES , ALL ' S OK 

{GET TILL FOR ERROR MESSAGE 
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5991 
5992 
5993 
5994 

5995 



5996 
5997 
5998 
5999 
6000 

6001 



6002 



6003 
6004 
6005 
6006 
6007 
6008 
6009 
6010 

6011 



6012 
6013 
6014 



6015 
6016 
6017 
6018 
6019 
6020 

6021 



6022 

6023 
6024 
6025 
6026 

602? 



032740 
032742 
032744 
032746 
032746 
032750 
032750 
032752 
032754 
032760 
032762 
032764 
032766 
032766 
032770 
032770 
032772 
032774 

032774 
032776 
033000 
033002 



033004 
033010 
033012 
033014 
033016 
033016 
033020 
033020 
033022 
033024 
033030 
033032 
033032 
033034 
033036 
033040 
033044 
033046 
033050 
033052 
033052 
033054 
033054 
033056 
033060 
033064 
033066 
033070 
033072 
033072 
033074 



120006 
002454 
103003 

104460 

104410 

003140 

004537 004064 

120007 

002456 

103003 

104460 

104410 
003120 



104455 
000076 
016203 
010762 



004537 004310 
120005 
002453 
103003 

104460 

104410 

003070 

004737 036146 

102002 

104410 

000350 

103426 

004537 004064 

120006 

002454 

103003 

104460 

104410 

003034 

004537 004064 

120007 

002456 

103003 

104460 
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iT MODE 


TILL 

TMP6 

BCC 

ERROR 

ESCAPE 

JSR 

TILH 

TMP7 

BCC 

ERROR 

ESCAPE 
GEOF 


.♦10 

TST 

R5 , READ 

.+10 

TST 
EM50C.ERR50 




(IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

l AND EXIT THIS TEST 

;GET TILH FOR ERROR MESSAGE 

j IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

j AND EXIT THIS TEST 

{NO! BAD VIA CHIP! 

i "DEVICE FATAL" ERROR 


<i 


TRAP 

TRAP 
.WORD 

TRAP 

TRAP 

.WORD 

62 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERROR 

CJESCAPE 
L 10073 -. 

CSERROR 

C*ESCAPE 
L 10073 -. 

C$ERDF 
62 

EM50C 
ERR50 


» 
29$ { 


JSR 


R5. WRITE 




jRF.-WRITE INTO T1C-H CAODR 05) 


TO SET 


Tl AGAIN 




T1CH 
















TMP5fl 
















RCC 


,♦10 




{IF NO ERROR. PROCEED 










ERROR 






{ELSE, REPORT IT 




TRAP 


C TERROR 




ESCAPE 


TST 




j AND EXIT THIS TEST 









JSR PC.GETTl 
BVC . »6 
ESCAPE SUB 



BCS 


32$ 


JSR 


R5.READ 


TILL 




TMP6 




BCC 


. *10 


ERROR 




ESCAPE 


TST 


JSR 


R5.READ 


Til H 




TMP7 




BCC 


. >10 


ERROR 




ESCAPE 


TST 



TRAP CSESCAPF 
.WORD L 10073 -. 

j IS "Tl" SET AGAIN 

{IF NO ERROR, PROCEED 

;ELSE. IT'S ALREADY BEEN REPORTED EXIT 

TRAP CJESCAPE 
.WORD L 10074 -, 

jYES, ALL'S WELL (AGAIN?) 

{GET TILL FOR ERHOR MESSAGE 



tIF NO ERROR, PROCEED 
jELSE, REPORT IT 



TRAP 



CU'RROR 



{ 



AND EXIT THIS TEST 



{GET TILH FOR ERh<)R MESSAGE 



; IF NO ERROR, PROCEED 
{FUSE, REPORT IT 

i AND EXIT THIS TEST 



TRAP CSESCAPE 

.WORD L 10073 -. 



SEQ 0167 



TRAP 



C$ ERROR 



Q 0155 
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033074 


104410 




033076 


003014 


6028 


033100 






033100 


104455 




033x02 


000077 




033104 


016730 




033106 


010762 


6029 


033110 






033110 


104410 




033112 


000272 


6030 






6031 






6032 






6033 


033114 


112737 000125 


6034 


033122 


004537 004310 


b035 


033126 


120006 


6036 


033130 


002455 


6037 


033132 


103003 


6038 


033134 






033134 


104460 


6039 


033136 






033136 


104410 




033140 


002752 


6040 


033142 


004737 036146 


6041 


033146 


102002 


6042 


033150 






033150 


104410 




033152 


000232 


6043 


033154 


103426 


6044 


033156 


004537 004064 


6045 


033162 


120006 


6046 


033164 


002454 


604 7 


033166 


103003 


6048 


033170 






033170 


104460 


fc049 


033172 






033172 


104410 




033174 


002716 


6050 


033176 


004537 004064 


6051 


033202 


120007 


6052 


033204 


002456 


6053 


033206 


103003 


6054 


033210 






033210 


104460 


6055 


033212 






0332?.. 2 


104410 




033214 


002676 


6056 


033216 






033216 


1.04455 




033220 


000100 




033222 


01701..' 




033224 


010762 


6057 


033226 






03 5226 


104410 




033230 


000154 



GEOF 



EM50L.ERR50 



{NO! 



ESCAPE SUB 



002455 32$: 







SEQ 0168 


TRAP 


CJESCAPE 




. WORD 


L10073-. 




SOMETHING WENT WRONG, REPORT IT 






"DEVICE FATAL" ERROR 63 






TRAP 


CJFRDF 




.WORD 


63 




.WORD 


EM50L 




.WORD 


ERR50 




AND EXIT FROM THIS SUBTEST 






TRAP 


C$ ESCAPE 




.WORD 


1.10074- . 





MOVB 4125.TMP6+1 

JSR R5. WRITE 

TILL 

TMP6+1 

BCC . *10 

ERROR 

ESCAPE TST 



j USING A DIFFERENT VALUE -- 55 HEX., 
jRE-LOAD T1L-L (ADDR 06) 



j IF NO ERROR, PROCEED 
jELSE, REPORT IT 

: AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



C$ ERROR 

C$ESCAPE 
L 10073 -. 



JSR 


PC.GETT1 


i IS "Tl STILL SET? 






BVC 


. #6 


;IF NO 


ERROR, PROCEED 






ESCAPE 


SUB 


{ELSE. 


IT'S ALREADY BEEN REPORTED EXIT 










TRAP 


C5ESCAPE 










.WORD 


L10O74-. 


BCS 


33* 


;rES, J 


ULL'S STILL OK 






JSR 


R5.READ 


jGET TILL FOR ERROR MESSAGE 






TILL 












TMP6 












BCC 


.♦10 


j IF NO 


ERROR, PROCEED 






ERROR 




{ELSE, 


REPORT IT 


TRAP 


CJERROR 


ESCAPE 


TST 


1 


AND EXIT THIS TEST 


TRAP 
.WORD 


C5FSCAPE 
L 10073 -. 


JSR 


R5.READ 


jGET T1LH FOR ERROR MESSAGE 






T1LH . 












TMP7 












BCC 


. *10 


(IK NO 


ERROR, PROCEED 






ERROR 




{ELSE, 


REPORT IT 


TRAP 


CSERRUR 


ESCAPE 


TST 


{ 


AND EXIT THIS TEST 


TRAP 

.WORD 


C*F iCAPF 

L 10073 -. 


GEDF 


EM50M.ERR50 


i NO! 


SOMETHING WENT WRUNG! 


REPORT IT 








{ 


"DEVICE FATAL" ERROR 


64 

TRAP 

.WORD 
.WORD 
.WORD 


CURD* 

64 

EM50M 

F.RR50 


ESCAPE 


SUB 


i 


AND EXIT FROM THIS SUBTEST 












TRAP 


CiF.SCAPF 










.WORD 


L10074-. 
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6G58 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 

6067 



6068 
6069 
6070 



6071 
6072 
6073 
6074 
6075 
6076 

6077 



6078 
6079 
6080 
6081 
6082 

6083 



6084 
6085 
6086 
6087 
6088 

6089 



6090 
6091 
6092 
6093 
6094 

6095 



6096 



033232 

033240 

033244 

033246 

033250 

033252 

033252 

033254 

033254 

033256 

03326C 

033264 

033266 

033266 

033270 

033272 

033274 

033300 

033302 

033304 

033306 

033306 

033310 

033310 

033312 

033314 

033320 

033322 

033324 

033326 

033326 

033330 

033330 

033332 

033334 

033340 

033342 

033344 

033346 

033346 

033350 

033350 

033352 

033354 

033360 

033362 

033364 

033366 

033366 

033370 

033370 

033372 

033374 



112737 000125 
004537 004310 
120005 
002453 
103003 

104460 

104410 

002634 

004737 036146 

102002 

104410 

000114 

103044 

004537 004064 

120004 

002450 

103003 

104460 

104410 

002600 

004537 004064 

120005 

002452 

103003 

104460 

104410 

002560 

004537 004064 

120006 

002454 

103003 

104460 



002453 33$ 



104410 
002540 
004537 
12000 / 
002456 
10 5003 

104460 

104410 
002520 



004064 



MOVB 4125,TMP5«-1 

JSR R5, WRITE 

TICH 

TMP5+1 

BCC . *10 

ERROR 

ESCAPE TST 



JSR 
BVC 
ESCAPE 


PC.GETT1 
, *6 
SUB 


BCC 
JSR 

TICL 
TMP4 
BCC 
ERROR 


34$ 

R5.REAU 

.♦10 


ESCAPE 


TST 


JSR 

TICH 

TMP5 

BCC 

ERROR 


R5.REA0 
, *10 


ESCAPE 


TST 


JSR 

TILL 

TMP6 

BCC 

ERROR 


R5.READ 
. flO 


ESCAPE 


TST 


JSR 

TILH 

TMP7 

BCC 

ERROR 


RS.READ 

. ♦ lO 


ESCAPE 


TST 



sAND USING THE SAME VALUE AGAIN (55 HEX), 
{NOW LOAD T1C-H ( ADDR 05) 



{IF NO ERROR, PROCEED 

jELSE, REPORT IT 

TRAP C$ERROR 

I AND EXIT THIS TEST 

TRAP CSESCAPE 
.WORD 1.10073- . 

i"Tl" SHOULD NOW BE CLEARED 

{IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED -- EXIT 

TRAP CSESCAPE 
.WORD L10074-. 

j IT WAS, ALL'S WELL THAT END'S WELL (I THINK'?) 

{GET TICL FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

; AND EXIT THIS TEST 



{GET TICH FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

t AND EXIT THIS TEST 



{GET TILL FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
{ELSE, REPORT IT 



TRAP 



CSERROR 



TRAP CSESCAPE 
.WORD L10073-. 



TRAP 

TRAP 
.WORD 



CSERROR 

CSESCAPE 
L10073-. 



\ 



AND EXIT THIS TEST 



{GET TILH FOR ERROR MESSAGE 



TRAP 

TRAP 
.WORD 



CSERROR 

CSESCAPE 
L10073-. 



GEDF EM50N.ERR50 



j If- NO ERROR, PROCEED 
;ELSE, REPORT IT 

TRAP CSERROR 
i AND EXIT THIS TEST 

TRAP CHSCAPl- 

,woRD i.ioo:*-. 

{IT WASN'T! SOMETHING WENT WRONG; REPORT IT 
j "DEVICE FATAL" ERROR 65 



SEQ 0169 



01D7 
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B 1 4 
lSia* pack ;/-i5 



60 1 */ 



6099 
MOO 
t>10l 
610^ 
6iO'i 



61M 
61J5 
6106 

6107 



6106 
6109 
6110 
6U1 
6U? 

611? 



033374 
C33376 
033400 
033402 

033404 
033404 
033404 



033406 
033406 
033406 
033410 
033414 
033416 
033416 
033420 
0334^0 
033422 
033424 
0334 30 
033432 
0334 34 
0334 36 
0^34 36 
033440 
033440 
03344? 



6114 
6115 
6116 
611 ? 
6116 
6114 



6120 
6121 
6122 
6123 
6124 
6125 
6126 

6127 



6126 
6129 
6.'. 50 
6131 
'.1 52 



*.tw 



033444 
053450 
033452 
033452 
033454 
033456 

033460 
5 3464 
033466 

033470 
033472 
033472 
033474 
0334/4 
033476 
053500 
053504 
055506 
035510 
05551^ 
055512 
03U14 



104455 
000101 
017054 
010762 



104403 



104402 
004737 
103003 

104460 

104410 
0024 70 
004537 
000000 

000200 
103005 

104460 

104410 
002450 



0O4757 
102002 

104410 
002434 

103123 

004537 
120013 
002466 

103003 

104460 

104410 
002414 
004537 
120004 
002450 
103005 

10A46Q 



34tj 



ENDSUB 



L 10074. 



TRAP 
.WORD 
.WORD 
• WORD 



TRAP 



CIERDf 
65 

EM50N 
ERR50 



C IE. SUB 



003762 



j "EST TIMFR * 
BGNSL© 



JSR 
BCC 
ERROR 



1 USING ONE -SHOT MODE WITH OUTPUT ON PB7 ENABLED, 



004660 



Ml 



036146 



004064 



004064 



ESCAPE 



JSR 



BIT/ 

BCC 

ERROR 

ESCAPE 



PC.HSTCLR 
II 



TST 

R5,INITT1 
. *10 

TST 



CIBSUB 

CIFRROR 
CIFSCAPf 



T2/.2: 

TRAP 
lINIT DMV C ENTER Ml.OOP 
jIF NO ERROR, PROCEED WITH TESTING 
jELSE, REPORT ERROR 

TRAP 
I 6 EXIT TEST 

TRAP 

.WORD 1.100/3- . 
^INITIALIZE TIMER * I 
I ••> LATCHES 

I MOOE 2 £ "IX" INT. ENABLE FLAG CLEARED 
ill NO tRROR. PROCEED 
(ELSE, REPORT IT 

TRAP CIERROR 
j AND EXIT THIS TEST 

TRAP C IE SCAPE' 

.WORD L 10073- , 



I MOOE 2 IS ONE. SHOT MODE WITH OUTPUT ON PB 7 CONTROLED By TIMER 1 

lis "Tl SIT? 

I If NO IRROR, PROCEED 

lELSE. IT'S ALREADY BEEN REPORTED EXIT 

TRAP CIESCAPfc 

.WORD I 10075 *, 

j NO, GOOD. 

jYES, ALPORT IT'S NOT BEING CLEARED b) INI T , 

jGET ACR FOR ERROR MESSAGE 



JSR 
HVC 
ESCAPE 


PC.uETTl 
. »6 

SUB 


BCC 


61 


JSR 

ACR 

TMPB 

BCC 

ERROR 


H5.PEAD 

. *io 


ESCAPE 


TST 


JSR 

UCL 

TMP4 

BCC 

tRHOR 


R5.READ 
. •lO 


t&C AW; 


TUt 



j IF NO ERROR, PROCEED 
ltl.St, REPORT IT 



J 



ANO EXIT THIS TEST 



iGET T1CI FOR ERROR MESSAGE 



i V NO F.RROR. PROCEED 
j* LiuL* REPORT IT 



TRAP 

TRAP 
.WORD 



CURROR 

CU SCAPE 
I 100 .'3 . 



SEQ 0170 



1 



ANO LX1I tWiti TUT 



TRAP CU'RROH 



CI 4 
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033514 


104410 




033516 


002374 


6154 


035520 


004537 004064 


6135 


033524 


120005 


6136 


033526 


002452 


615: 


033MO 


103003 


6158 


033532 






033532 


104460 


6139 


033534 






033534 


104410 




033536 


002354 


6140 


033540 


004537 004064 


bl41 


035544 


120006 


6142 


033546 


002454 


ol43 


033550 


103003 


6144 


035552 






033552 


104460 


6145 


033554 






033554 


104410 




033556 


002554 


6146 


033560 


00453 7 004064 


6147 


053564 


120007 


6148 


033566 


002456 


6149 


033570 


103005 


61S0 


053572 






033572 


104460 


6151 


033574 






033574 


104410 




0335 76 


002314 


6152 


033600 






033600 


104455 




035602 


000102 




033604 


016067 




033606 


010762 


6153 






6154 






6155 






6156 


033610 


112 73 7 000002 


615/ 


033616 


004537 004510 


6158 


033622 


120005 


6159 


033624 


002453 


6160 


033626 


103003 


6161 


033650 






033630 


104460 


616,1 


033632 






035632 


IC4410 




035634 


002256 


6163 


0336 36 


004737 056146 


6164 


033642 


102002 


6165 


033644 






033644 


104410 




033646 


002242 


6166 


03 5650 


103026 


6167 






M6tt 


03 3652 


0045 3/ QQ4064 


6169 


055656 


120QQ5 



002453 



JSR 
T1CH 

TMP5 

BCC 

ERROR 


R5.AEA0 
, »10 


ESCAPE 


TST 


JSR 

TILL 
TMP6 
BCC 
ERROR 


R5.READ 

. »10 


ESCAPE 


TST 


JSR 

TlLH 

TMP7 

BCC 

ERROR 


R5.REA0 

, .10 


ESCAPE 


TST 


CEDE 


EM50A J.RR50 



MOVB #?,Wm1 

JSR R5, WRITE 

T1CH 

TMP5M 

BCC , ♦lO 

FRROR 

fc SCAPE TST 



JSR PC.liMTl 

HVC . »6 

\ SCAPE SUU 



HCC 

»JSR 
T1CH 



61 

H5»HtAU 



I GET TiCH FOR ERROR MESSAGE 



I IF NO ERROR, PROCEED 
I ELSE, REPORT IT 



TRAP C»F SCAPE 

,WORD L 100/3 . 



J 



AND EXIT THIS TEST 



TRAP 



jGET TILL FOR ERROR MESSAGE 



I IF NO ERROR, PROCEED 
jELSE, REPORT IT 



J 



AND EXIT THIS TEST 



TRAP 



j GET TlLH FOR ERROR MESSAGE 



1 IF NO ERROR. PROCEED 

lELSE, REPORT IT 

TRAP 

j ANO EXIT THIS TEST 

TRAP 
.WORD 

(REPORT "Ti" NOT CLEARED S INI T . 

I "DEVICE FATAL" ERROR 66 

TRAP 
.WOPD 
.WORD 
• WORD 



lIMI TIMER o 1 Bi WRITING INTO 
|T1C-H (ADOR 05) 



CtERROR 



TRAP Ct ESCAPE 
■WORD L 100 75-. 



CIERROR 



TRAP CIESCAPfc 

,WORD L10073-. 



CiERROR 

CIESCAPE 
1.10073- , 



CIERDF 
66 

EM50A 
ERR50 



i IF NO ERROR. PROCEED 






lELSE, REPORT IT 








TRAP 


Cf FRROR 


j ANO EXIT THIS TEST 








TRAP 


CHSC'iPt 




.WORD 


L 10073 . 



lIS "Tl" '_>EI? 

j IF NO ERROR. PROCEED 

I El SF, IT'S ALREADY BEEN REPORTED EXIT 

TRAP CU^CAPF, 

.word i ioo;&. t 

I NO, GOOD, 

it*S t RF.PURr IT 5 NOT BE INC. CLLARtQ 4 INU* 

iUtl tlCH KUR ERROR Mt&iAUt 



SEQ 01/1 



D'i.4 



0159 
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6170 


033660 


002452 


6171 


033662 


103003 


6172 


033664 






033664 


104460 


6175 


033666 






033666 


104410 




033670 


002222 


6 1 74 


033672 


004537 004064 


6175 


0356 76 


1200C7 


6176 


033700 


002456 


r» 1 7 7 


033 702 


103005 


6178 


033 704 






033704 


104460 


61/9 


033706 






033706 


104410 




033710 


002202 


6180 


033712 






033712 


104455 




033714 


000103 




033716 


016135 




033720 


01076? 


6181 


033722 






033722 


104410 




033724 


002164 


618? 






6183 






6184 






6185 


033726 


004 757 00376? 


6186 


033732 


112737 00037/ 


6187 


033740 


00453/ 004310 


6188 


033/44 


120002 


6189 


033746 


002445 


6190 


033 750 


103003 


6191 


035752 






033/52 


104460 


6192 


033754 






033 754 


104410 




033756 


002134 


6193 


033760 


004537 004660 


6194 


033764 


000000 


6195 


033766 


000200 


6196 


033770 


103003 


6197 


033772 






033772 


104460 


6198 


035774 






033774 


104410 




03 3 7 76 


002114 


6199 


034000 


00453 7 004064 


6200 


O.M004 


120013 


6201 


034006 


002466 


620c? 


034010 


103005 


6203 


034012 






034012 


10446C 


6204 


054014 






03401* 


104410 




034016 


0020 74 



002445 



6$ 



TMP5 

BCC 

ERROR 


. ao 


ESCAPE 


TST 


JSR 

T1LH 

THP7 

BCC 

FRROR 


R5.READ 
. »10 


ESCAPE 


TST 



I IF NO ERROR, PROCEED 
jELSE, REPORT IT 

I AND EXIT THIS TEST 



,GET TU.H FOR ERROR MESSAGE 



TRAP 



GEDF EM50B.ERR50 



ESCAPE SUB 



l IF NO ERROR, PROCEED 

lELSE, REPORT IT 

TRAP 

I AND EXIT THIS TEST 

TRAP 
.WORD 

{REPORT "!1" NOT CLEARED a INIT. 

I "DEVICE FATAL" ERROR 67 

TRAP 
.WORD 
.WORD 
.WORD 

jAND EXIT SUBTEST 

TRAP 
,WORD 



JSR PC.MSTCLR 

MOVB 0377,TMP2»1 

JSR R5, WRITE 

DDRB 

TMP2*1 

BCC . *10 

ERROR 



ESCAPE 


TST 


JSR 



BIT7 

BCC 

ERROR 


R5.INITT1 
, »10 


ESCAPE 


TST 


JSR 
ACR 
TMPB 
BCC 

ERROR 


R5.READ 
. ♦ 10 


ESCAPE 


TST 



SEQ 01/2 



CIERROR 



TRAP OESCAPt 

.WORD U10073-, 



CIERROR 

C IE SCAPE 
L10073-. 



CIERDF 
6 7 

EM50B 
ERR50 

C IE SCAPE 

L10075-. 



i INIT OMV & ENTER Ml OOP AGAIN 
I INITIAL VALUE! FOR DDRB 
I LOAD IT 



I IF NO tRROR. PROCFED 
jELSE, REPORT IT 

TRAP CIERROR 

, AND EXIT THIS TEST 

TRAP CIESCAPfc 

.WORD 1100 73- . 
i RE INITIALIZE THE TIMER 
; FOR MAXIMUM TIMEOUT 

» MODE 2 £ CLEARED "T1 H INT. FLAG 

i [* NO tRROR, PROCEED 
jEL.SE, REPORT IT 

TRAP CIERROR 

1 AND EXIT THIS TEST 

TRAP CIESCAPt 

.WORD L 100 73 t 
I GET ACR FOR FUTURE ERROR MESSAGES 



I IF NO tRROR, PROCEED 
lH SE, REPORT [I 

{ AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



CM HHOR 

Cn sCAPt 

i 100*5 . 
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6.205 


034020 


004537 036114 


6206 


034024 


252 


6207 


034025 


252 


6208 






6209 






b210 






6211 


034026 


004 737 036332 


6212 


034032 


102002 


6213 


034034 






034034 


104410 




034036 


002052 


6214 


034040 


103070 


6215 


034042 


004537 004064 


6216 


034046 


120015 


6217 


034050 


0024 72 


6218 


03*052 


103003 


6219 


034054 






034054 


104460 


6220 


034056 






034056 


104410 




034060 


002032 


6221 


034062 


004537 004064 


6222 


034066 


120004 


6223 


034070 


002450 


6224 


034072 


103003 


6225 


034074 






034074 


104460 


6226 


034076 






034076 


104410 




034100 


002012 


6227 


034102 


004537 004064 


6228 


034106 


120005 


622^ 


034110 


002452 


6230 


034112 


103003 


6231 


034114 






034114 


104460 


6232 


034116 






034116 


104410 




034120 


001772 


6233 


034122 


004537 004064 


6234 


034126 


120006 


6235 


034130 


002454 


6236 


034132 


103003 


6237 


034134 






034134 


104460 


6238 


034136 






034136 


104410 




034140 


001752 


6239 


034142 


00453 7 004064 


6240 


034146 


120007 


6241 


034150 


002456 


6242 


034152 


103003 


624 3 


034154 






034154 


104460 


6244 


034156 






034156 


104410 




034160 


001732 
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71: 

8$3 


JSR 

.BYTE 

.BYTE 


R5,L0DUC 

252 

252 




JSR 
BVC 
ESCAPE 


PC.GETPB7 

.♦6 

SUB 




BCC 
JSR 
IER 
TMPD 

pre 

ER^OR 


9$ 
R5.READ 

,♦10 




ESCAPE 


TST 




JSR 

TICL 

TMP4 

BCC 

ERROR 


Rb.READ 
, + 10 




ESCAPE 


TST 




JSR 

TICH 

TMP5 

BCC 

ERROR 


R5.READ 
,♦10 




ESCAPE 


TST 




JSR 

TILL 
TMP6 
BCC 

ERROR 


R5.READ 

.♦10 




ESCAPE 


TST 




JSR 
TUH 
TMP 7 
BCC 
ERROR 


R5.READ 
. *10 




ESCAPE 


TST 



jLOAD TIMER 1 



jGET "PB7". IS IT CLEARED? 

I IF NO ERROR, PROCEED 

iFl.SE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP C IE SCAPE 
.WORD L 10075-. 

I IT IS, GOOD 

j GET IFR FOR ERROR MESSAGE 



l IF NO ERROR, PROCEED 
jELSE, REPORT IT 

i AND EXIT THIS TEST 



j GET TICL FOR ERROR MESSAGE 



I U NO ERROR, PROCEED 
lEl.SE, REPORT IT 

I AUG T^TT THIS TEST 



;GET TICH FOR ERROR MESSAGE 



iU NO ERROR. PROCEED 
l ELSE, REPORT IT 

j AND EXIT THIS TEST 



jGET TILL FOR ERROR MESSAGE 



i IF NO ERROR, PROCEED 
jELSE, REPORT IT 

i AND EXIT THIS TEST 



,GET TUH FOR ERROR MESSAGE 



l V NO ERROR, PROCEED 
lfl.SE, REPORT IT 

i AND EXIT THIS TEST 



TRAP 



TRAP 



TRAP 

TRAP 
,WORD 



TRAP 



TRAP 



C J ERROR 



TRAP CtFSCAPE 
.WORD L1Q073-. 



CtERROR 



TRAP CIESCAPE 
.WORD L10073^. 



OERRUR 

CIESCAPt 

L 10073 -. 



CJERROR 



TRAP CU SCAPE 

.WORD L10073-. 



cm RROR 



SEQ 01/3 



TRAP CllSCAPt 

.WORD L lOO.'S-. 



;eq 0161 
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6245 034162 






034162 


104455 




034164 


000104 




034166 


017240 




034170 


010762 




6246 034172 


004 737 


036204 


6247 034176 


103003 




6248 034200 






034200 


104460 




b249 034202 






034202 


104410 




034204 


001706 




6250 034206 


004737 


005032 


6251 034212 


004737 


005032 


6252 034216 


012703 


000100 


6253 034222 


004537 


004064 


6254 034226 


120004 




6255 034230 


002450 




6256 034232 


103003 




6257 034234 






034234 


104460 




6258 034236 






034236 


104410 




034240 


001652 




6259 034242 


123737 


002450 034024 


6260 034250 


001013 




62ol 034252 


077315 




6262 034254 






034254 


104455 




034256 


000105 




034260 


016251 




0S4262 


010762 




6263 034264 


004737 


036204 


6264 034270 


103003 




6265 034272 






034272 


104460 




6266 0342 74 






034274 


104410 




034276 


001614 




626 7 034 300 


012703 


000100 


6268 034304 


004537 


004064 


6269 034310 


120005 




62/0 034312 


002452 




62 71 034 314 


103003 




6272 034316 






034 316 


104460 




6273 034320 






034320 


104410 




034322 


0015/0 




6274 034324 


123737 


002452 034025 


62/5 034332 


001027 




62 76 034 334 


077315 




6277 034336 


004537 


004064 


6278 034342 


120006 




6279 034344 


002454 





GEDF 



EM50V,ERRV>0 



JSR 
BCC 
ERROR 



PCKICKTl 
.♦10 



ESCAPE TST 





JSR 


PC, STALL 




JSR 


PC, STALL 


10$: 


MOV 


0100. R3 


9$: 


JSR 

TICL 

1MP4 


R5,READ 




BCC 


.♦10 




ERROR 





ESCAPE TST 



CMPB 


TMP4.7 5 


BNE 


12* 


SOB 


R3.91 


GEDF 


EM50D.ERR50 



JSR 
BCC 
ERROR 



PCKICKTl 

12$ 



ESCAPE TST 



12*: 


MOV 


0100, R^ 


13$: 


JSR 

TICH 

TMP5 


R5.READ 




BCC 


. »10 




ERROR 





ESCAPE TST 



SEU 0174 



jNO, STILLC?) SET! 

; "DEVICE FATAL" ERROR 68 

TRAP 
.WORD 
.WORD 
.WORD 

j BECAUSE THE ERROR MESSAGE TAKES SO LONG TO 

i IF NO ERROR, PROCEED 

lELSE, REPORT IT 

TRAP 

i AND EXIT THIS TEST 

TRAP 
.WORD 

j PROCESS 6 PRINT, RE -START THE TIMER AND THEN 

I DELAY FOR A LITTLE WHILE SO IT CAN DECREMENT 

i* INIT, "REPEAT" VALUE 

; READ THE LOW COUNTER 



CJERDF 
68 

EM50V 
ERR50 



CJERROR 

CIESCAPF. 

L10073 . 



I IF NO ERROR, PROCEED 
lELSE, REPORT IT 

TRAP 
; AND EXIT THIS TEST 

TRAP 
.UORD 
i MAKE SURE THE COUNTER IS DECREMENTING 
j IT IS, NOW SEE IF THE HIGH COUNTER IS 
i* NO: IF NOT 64, ATTEMPTS, TRY AGAIN 
» IT WASN'T -- REPORT THE ERROR 
l "DEVICE FATAL" ERROR 69 

TRAP 
.WORD 
.WORD 
.WORD 
MESSAGE 



CSFRROR 

C$E SCAPE 
1.10073- . 

TOO 



jRESTART TIMER AGAIN IF 
i V NO ERROR, PROCEED 



ERROR 
OCEEO 
.•ELSE, REPORT IT 

i AND EXIT THIS TEST 



5 INIT 

jREAD 



TIMEOUT 
THE HIGH 



VALUE 
COUNTER 



TRAP 

TRAP 
.WORD 



C$ERDF 

69 

EM50D 

ERR50 
PRINTED 



CJFRROR 

CH. SCAPE 
L10073-. 



j IF NO ERROR, 
I ELSE, REPORT 



PROCEED 
IT 



I 



CMPB 


TMP5.8I 


j DID 


BNF 


l/« 


|US 


SOB 


R5.15* 


iNO. 


JSR 


R5.READ 


j GET 


Till 






TMP6 







AND EXIT THIS TEST 



IT CHANGE fROM THE LOADED 
PROCEED WITH TESTING 
IF NO TIMEOUT, TR> AuAIN 

TILL FOR ERROR MESSAGE 



TRAP 

TRAP 
,WUR[) 

VALUE? 



C J ERROR 

cn scape 

l 100 .'5- . 
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BCC . *10 

ERROR 



SEQ 0175 



6280 


034346 


103003 


6281 


034350 






034350 


104460 


6282 


034352 






034352 


104410 




034354 


001536 


6263 


034356 


004537 004064 


6284 


034362 


120007 


6285 


034364 


002456 


6286 


034366 


103003 


t.287 


034370 






034370 


104460 


6288 


034372 






034372 


104410 




034374 


001516 


6289 


034376 






034376 


104455 




034400 


000106 




034402 


016305 




034404 


010762 


6290 


034406 






034406 


104410 




034410 


001500 


6291 






6292 






6293 


034412 


112737 000377 


6294 


034420 


004537 004310 


6295 


034424 


120002 


6296 


034426 


002445 


6297 


034430 


103003 


6298 


034432 






034432 


104460 


6299 


034434 






034434 


104410 




034436 


001454 


6300 


034440 


004537 036114 


6301 


034444 


001 


6302 


034445 


000 


6303 






6304 






6305 


034446 


004 73 7 036146 


6306 


034452 


102002 


6307 


034454 






034454 


104410 




034456 


001432 


6308 


034460 


103446 


6309 


054462 


004537 004064 


6310 


034466 


120004 


6311 


034470 


002450 


6312 


034472 


103003 


6313 


0344 74 






034474 


104460 


6514 


0344 76 






0344 76 


104410 




034500 


00141? 


6315 


034502 


004537 004064 



I IF" NO ERROR, PROCEED 
{ELSE, REPORT IT 



16$ 
19$ 



ESCAPE TST 



I 



AND EXIT THIS TEST 



R5.READ 



JSR 

T1LH 

"W7 

BCC ,*10 

ERROR 

ESCAPE TST 



GEDF EM50E.ERR50 



iGET T1LH FOR ERROR MESSAGE 



TRAP 

TRAP 
.WORD 



CfFRROR 

CIESCAPE 
L10073-. 



ESCAPE SUB 



j IF NO ERROR, PROCEED 

jELSE, REPORT IT 

TRAP CSERROR 

j AND EXIT THIS TEST 

TRAP C$ ESCAPE 

.WORD 1.10073- . 

I ELSE, REPORT THAT HIGH COUNTER ISN'T RUNNING 

I "DEVICE FATAL" ERROR 70 

TRAP C$FRDF 

.WORD 70 

.WORD EM50E 

.WORD ERR50 

jIN THAT CASE, WE CAN'T PROCEED WITH TESTING EITHER 

TRAP CSFSCAPE 

.WORD L10075-, 



MOVB 0377.TMP2U 

JSR R5. WRITE 

DDRB 

TMP2*1 

BCC , *10 

ERROR 

ESCAPE TST 



JSR R5.L0DT1C 

.BYTE 1 
.BYTE 



j SETUP DDRB FOR DESIRED DIRECTION OF ORB 



l IF NO ERROR, PROCEED 
tELSE, REPORT IT 

TRAP CIERROR 

j AND EXIT THIS TEST 

TRAP C$ESCAPE 

.WORD L 10073-, 
jRE-LOAD TIMER & 1 WITH A VALUE WHICH WILL 
i CAUSE AN ALMOST IMMEDIATE TIMEOUT 
} (ADDRESS OF HIGH BYTE FOR T1C-H ( ADDR 05)) 



JSR PC. GET U 

BVC . »b 

ESCAPE SUB 



BCS ,'0* 

JSR R5.READ 

T1CL 

TMP4 

BCC ,»10 

ERROR 

ESCAPE TST 



jWAS "Ti" SET BY JHE. ABOVE OPERATION? 

{IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP C$F SCAPE 

.WORO L10075-. 

I YES, OK * CONTINUE ERROR CHECKING 

l GET T1CL FOR ERROR MESSAGE 



JSR 



R5.RFAD 



I IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

j AND EXIT THIS TEST 



j GET T1CH EUR ERROR MESSAGE 



TRAP 

TRAP 

.WORD 



CURROH 

CH'.CAPl 
L 10073 -. 
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6316 


U34506 


120005 


6317 


034510 


002452 


6318 


034512 


103003 


6319 


034514 






034514 


104460 


6320 


034516 






034516 


104410 




034520 


001372 


6321 


034522 


004537 004064 


6322 


034526 


120006 


*323 


034530 


002454 


6324 


034532 


103003 


6325 


034534 






034534 


104460 


o326 


034536 






034536 


104410 




034540 


001352 


6327 


034542 


00453 7 004064 


6328 


034546 


120007 


6329 


034550 


002456 


6330 


034552 


103003 


6331 


034554 






034554 


104460 


6332 


034556 






034556 


104410 




034560 


001332 


6353 


034562 






034562 


104455 




034564 


000107 




034566 


016341 




034570 


10762 


6334 


0345 72 






034572 


104410 




034574 


001314 


6335 


034576 


004737 036332 


6336 


034602 


102002 


6337 


034604 






034604 


104410 




0346^0 


001302 


6358 


034610 


103445 


6339 


034612 


004537 004064 


6340 


034616 


120004 


6341 


034620 


002450 


6342 


034622 


103003 


634 3 


034624 






034624 


104460 


6344 


034626 






034626 


104410 




034630 


001262 


6345 


034632 


004537 004064 


6346 


034636 


120005 


634/ 


034640 


002452 


6348 


034642 


103003 


6349 


034644 






034644 


104460 


6350 


034646 





20$ 



TICH 

TMP5 

BCC . *1C 

ERROR 

ESCAPE T5T 



JSR 

TILL 

TMP6 

BCC 

ERROR 



R5.READ 



. *10 



ESCAPE TST 



R5.READ 



JSR 

T1LH 

TMP7 

BCC . *10 

ERROR 

ESCAPE TST 



GEOF EMS0F.ERR50 



ESCAPE SUB 



J5R 
BVC 
ESCAPE 


PC.GETPB7 

. *6 
SUB 


BCS 

JSR 
TlCl 

TMP4 

BCC 

ERROR 


41* 

R5.READ 

, »10 


ESCAPE 


TST 


JSR 

TICH 

IMP5 

BCC 

ERROR 


R5.READ 

. »io 


ESCAPE 


TST 



I IF" NO ERROR, PROCEED 
jELSE, REPORT IT 



l 



AND EXIT THIS TEST 



jGET TILL TOR ERROR MESSAGE 



I IF NO ERROR, PROCEED 
jELSE, REPORT IT 



TRAP 

TRAP 
• WORD 



i 



AND EXIT THIS TEST 



TRAP 



j GET Tll.H TOR ERROR MESSAGE 



j If- NO ERROR, PROCEED 

jELSE, REPORT IT 

TRAP 

; AND EXIT THIS TEST 

TRAP 
.UORD 

j NO, BAD NEWS! REPORT THE FAILURE 

i "DEVICE FATAL" ERROR 71 

TRAP 
.WORD 
.WORD 
.WORD 

; AND GET OUT OF SUBTEST 

TRAP 

.WORD 

l GET "PB7". IS IT SET? 

I tf NO ERROR, PROCEED 

lEl.Sfc, IT'S ALREADY BEEN REPORTED E 

TRAP 
.WORD 

j YES, CONTINUE CHICKING " T I " 

{GET TlCL FOR ERROR MESSAGE 



CJFRROR 

C5ESCAPE 
L10073-. 



CJERROR 



TRAP CSESCAPE 

.WORD L10073-. 



C TERROR 

CJESCAPE 
L10073-. 



CJERDF 
71 

EM50f 
ERR50 

CJESCAPE 
L100/5-. 



XIT 

cnscAPt 

L10075 -. 



j IF NO ERROR, PROCEED 
lEl.SE, REPORT IT 

i AND EXIT THIS TEST 



j GET TICH FOR ERROR MESSAGE 



j U NO ERROR, PROCEED 
j ELSE. REPORT IT 

: AND EXIT THIS TEST 



TRPF 



CiERROR 



TRAP C$ESCAPt 

.WORD L 100 73- . 



TRAP 



CiFRROR 



SEQ 0W6 



EQ 0164 
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6351 
6352 
6353 
6354 
^355 

6356 



6557 
6358 
6359 
6360 
6361 

6362 



6363 



6364 
63o5 
6366 
6367 
C368 
6369 

6370 



6371 
6373 



6374 
t>375 
6376 
6377 
6378 
6379 
6380 

6381 



6 382 

6583 
6384 
6385 
63&6 



034646 
034650 
034652 
034656 
034660 
034662 
034664 
034664 
034666 
034666 
034670 
034672 
034676 
034700 
34 702 
03*704 
031704 
034706 
034 706 
034/10 
034712 

034712 
034714 

034716 
034 720 
034 /22 
034 724 
034730 
034732 
034734 
034736 
034736 
034 740 
034 740 
034742 
034744 
034750 
034 752 
034 752 
034 754 
034 756 

034760 
034 764 
034766 
034770 
034/72 
034 7/2 
034774 
034 7 74 
034 7 76 
035000 
035001 
035006 
035010 
035012 



104410 
001242 
004537 
120006 
002454 
103003 

104460 

104410 
001222 
004537 
12000 7 
002456 
103003 

104460 

104410 
001202 



104455 
000110 
01/122 
010762 
000562 
004537 
120005 
002452 
103003 

104460 

104410 
001150 
004737 
102002 

104410 
001134 
103435 

004537 
120004 
002450 
103003 

104460 

104410 
001114 
00453/ 
120006 

002454 

103003 



004064 



004064 



004064 



415 



036146 



11$ 



004064 



004064 



JSR 

TILL 

TMP6 

BCC 

ERROR 


R5.REAQ 
.♦10 


ESCAPE 


TST 


JSR 

TILH 

TMP7 

BCC 

ERROR 


R5.READ 

. ♦ lO 


ESCAPE 


TST 


GEDF 


EM50S.ERR50 



BR 


28$ 


JSR 


RS.READ 


T1CH 




TMP5 




BCC 


. »10 


ERROR 




ESCAPE 


TST 



JSR PC.GETT1 
B\^C lit 
ESCAPE SUB 



BCS 



JSR 

tu.i 

TMP6 

BCC 

ERROR 



21 1 
RS.READ 



JSR 

ncL 

TMP4 

BCC . »10 

ERROR 

ESC API. TST 



R5.REAU 



.•10 



SEQ 0177 



I GET TILL FOR ERROR MESSAGE 



I IF NO ERROR, PROCEED 
lELSE, REPORT IT 



TRAP 
.WORD 



CtESCAPE 
L10073-. 



J 



AND EXIT THIS TEST 



jGET TILH FOR ERROR MESSAGE 



TRAP 

TRAP 
.WORD 



CtERROR 

CtESCAPE 
L10073-, 



ilF NG ERROR, PROCEED 

lELSE, REPORT II 

TRAP 

l AND EXIT THIS TEST 

TRAP 
. WORD 

iNO! REPORT THAT PB 7 DION' T GET SET! 

} "DEVICE FATAL" ERROR 9 72 

TRAP 
.WORD 
.WORD 
.WORD 
£ EXIT (HIS SECTION OK SUBTEST 



CtERROR 

CtESCAPE 
L10075-. 



CtERDF 

72 

EM50S 

ERR50 

J ' ' * "" 

jREAD T1C-H (ADDR 05) TO SEE IE IT CLEARS "ri" 
{(THIS VALUE ISN'T CHECKED BECAUSE IT CAN BE 
I ALMOST ANYTHING) 
I IF NO ERROR, PROCEED 
iELSE, REPORT IT 

TRAP CtERROR 
j AND EXIT THIS TEST 

TRAP CU-.SCAPfr 

.WORD L 100 73-. 

{PUT THE CURRENT "Tl" VALUE INTO THE CARRY BIT 

itf NO ERROR, PROCEED 

jELSE. IT'S ALREADY BEEN REPORTED tXIT 

TRAP C IF SCAPE- 
.WORD L 100 75-, 

j IF SET. ALL'S OK 

; IF CLEARED! BAD VIA CHIP; 

i GET T1CL FOR ERROR MESSAGE 



I IF NO ERROR, PROCEED 
lELSE, REPORT IT 

i AND EXIT THIS TEST 



jGET TILL FOR ERROR MESSAGE 



s U NO ERROR, PROCEtO 
l£LSL» REPORT IT 



TRAP 

TRAP 
.WORD 



CtERROR 

Ctl sCAPt 

L 100:3-. 



;EQ 0165 
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6387 



6388 
6389 
6390 
6391 
6392 

0393 



6394 



035012 104460 

035014 

035014 104410 

035016 001074 

035020 004537 004064 

035024 120007 

035026 002456 



6395 
6396 
6397 
6398 
6399 
6400 
6401 

6402 



6403 
6404 
6**05 
6*r>6 
640/ 
6408 
6409 
6410 

6411 



6412 



6413 
6414 
6415 
6416 

6417 



6418 
6419 



035030 
035032 
035032 
035034 
035034 
035036 
035040 

035040 
035042 
035044 
035046 
035050 

035052 
035056 
035060 
035062 
035064 
035064 
035066 
i >5066 
035070 
035072 
035100 

035102 
035106 
035110 
035112 
035114 
035114 
035116 
035116 
035120 
035122 

035122 
035124 
035126 
035130 
035132 

035134 
035140 
035142 
035142 

035144 
035146 



103003 

104460 

104410 
001054 



104455 
000111 
016406 
010762 
000507 

004537 004064 
120006 
002454 
103003 

104460 



104410 
001022 
123737 
001415 

004537 
120007 
002456 
103003 

104460 

104410 
000772 



104455 
000112 
016450 

010762 
000456 

004 7 37 

102002 

104410 
000/44 
103415 



002454 034444 



004064 



036146 



23* 
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21*i 



ESCAPE TST 



BR 



R5.READ 



JSR 

T1LH 
TMP7 
BCC ,+10 

ERROR 

ESCAPE TST 



GEDF EM50G.ERR50 



BR 


28$ 


JSR 
TILL 

TMP6 

BCC 

ERROR 


R5.READ 
, *10 


ESCAPE 


TST 


CMPB 
BEQ 


TMP6,18$ 
23$ 


JSR 
Til H 
TMP7 
BCC 
ERROR 


R5.READ 


ESCAPE 


TST 



GEOF' EM50H.ERR50 



28$ 



JSR PC.GfcTTi 

BVC . *6 

ESCAPE SUB 



I AND EXIT THIS TEST 

jGET Tll.H FOR ERROR MESSAGE 



TRAP C$ERROR 

TRAP C$E SCAPE 

.WORD L10073-. 



}IF NO ERROR, PROCEED 








{ELSE, REPORT IT 












TRAP 


CiERROR 


i AND EXIT THIS 


TEST 










TRAP 


CIESCAPf 






.WORD 


L10073-. 


; REPORT BAD VIA CHIj'! 








j "DEVICE FATAL' 


' ERROR 


73 








TRAP 


CJERDF 






.WORD 


73 






.WORD 


F.MSOG 






.WORD 


ERR50 



{BYPASS THE REST OF THIS SECTION UF TESTING 

{READ T1L-L CADDR 06) 

j THIS SHOULD RETURN A 001 
j IF NC ERROR, PROCEED 
{ELSE, REPORT IT 



TRAP 



C$ERROR 



BCS 



24$ 



j AND EXIT THIS TEST 

TRAP C$ESCAPE 

.WORD L10073-. 

; CHECK TIL L ( AODR 06) AGAINST LOADED VALUE 

;IF SAME, PROCEED 

{ELSE. REPORT BAD LOAD OF UL-L (ADDR 06) 

{GET T1LH FOR ERROR MESSAGE 



j IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP Cifc'HHOR 

t AND EXIT THIS TEST 

TRAP CttSCAPF 

.WORD L 10073 , 

{ELSE, REPORT BAD LOAD OF T1l L ('\DDR 06) 

; "DEVICE FATAL" ERROR 4 74 

TRAP CSHHD* 

.WORD /4 

.WORD f-MSOH 

.WORD FRR50 

{BYPASS THE REST OF THIS SECTION OF TESTING 

lis "TV" STILL SE1? 

j IF NO FRROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP C$* v;>;P[ 

.WORD L 100.'5 . 

(its, Al L' S OK 

jNO! BAD VIA CHIP} 



SEQ 0178 



EQ 0166 
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6420 


035150 


004537 00*5064 


642. 


035154 


120007 


6422 


035156 


002456 


6423 


035160 


103003 


6424 


035162 






035162 


104460 


6425 


035164 






035164 


104410 




035166 


000724 


6426 


035170 






035170 


104455 




035172 


000113 




035174 


016536 




035176 


010762 


6427 


035200 


000433 


6428 






6429 


035202 


004537 004064 


6430 


035206 


120007 


6431 


035210 


002456 


6432 


035212 


103003 


6433 


035214 






035214 


104460 


6434 


035216 






035216 


104410 




035220 


0006 72 


6435 


035222 


123737 002456 


6436 


U35230 


001405 


6437 


035232 






035232 


104455 




035234 


000114 




035236 


016600 




035240 


010762 


6438 


035242 


000412 


6439 






6440 


035244 


004737 036146 


6441 


035250 


102002 


6442 


035252 






035252 


104410 




035254 


000634 


6441' 


035256 


103404 


6444 


035260 






035260 


104455 




035262 


000115 




035264 


016666 




035266 


010762 


6445 






6446 






644 7 






6448 


035270 


00453 7 004064 


6449 


035274 


120004 


6450 


035276 


002450 


6451 


035300 


103003 


6452 


035302 






035302 


104460 



24$ 



034445 



26$ 



28$ 





K1.4 
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•22 








JSR 


R5.READ 




{GET T1LH FOR ERROR MESSAGE 






T1LH 












TMP7 












BCC 


. *10 




I IF NO ERROR, PROCEED 






ERROR 






{ELSE, REPORT IT 


TRAP 


C$ERROR 


ESCAPE 


TST 




I AND EXIT THIS TEST 


TRAP 
.WORD 


CILSCAPE 
L 10073- . 


GEDF 


EM50I.ERR50 




{REPORT BAD VIA CHIP! 

j "DEVICE FATAL" ERROR * 


75 

TRAP 
.WORD 
.WORD 
.WORD 


CtERDF 

75 

EM50I 
ERR50 



SEQ 0179 



BR 



JSR 

TlCt 

TMP4 

BCC 

ERROR 



'8$ 



JSR 


R5.READ 


T1LH 




TMP7 




BCC 


.♦10 


ERROR 




ESCAPE 


TST 



CMPB TMP7,19$ 

BEQ 26$ 

GEDF EM50J.ERR50 



BR 28$ 

JSR PC.GETT1 

BVC . »6 

ESCAPE SUB 



BCS 28$ 

GEDF EM50K.ERR50 



Rb,READ 



.♦10 



;BYPASS THE REST OF THIS SECTION OF TESTING 
{READ T1L-H (ADDR 07) 



;THIS SHOULD RETURN A 000 
ilF NO ERROR, PROCEED 
{ELSE, REPORT IT 



TRAP 



C$ERROR 



j AND EXIT THIS TEST 

TRAP CiESCAPF 

.WORD L10073-. 

5 CHECK T1L-H CADDR 07) AGAINST LOAUF.D VALUE 

l If SAME, PROCEED 

jELSE, REPORT BAD LOAD OF TIL H (ADDR 07) 

; "DEVICE FATAL" ERROR 76 

TRAP CIERDF' 

.WORD 7t> 

.WORD EM50J 

.WORD FRR50 

^BYPASS THE REST OF THIS SECTION OF TESTING 

s IS "Tl" STILL SET? 

j IF NO ERROR, PROCEED 

lELSE, IT'S ALREADY BEF.N REPORTED EXIT 

TRAP CltSCAPf 

.WORD 

t*ES» ALL' S OK 

{NO! BAD VIA CHIP! 

j "DEVICE FATAL" ERROR tf 77 

TRAP 
.WORD 
.WORD 
.WORD 



L10075 



C$ERDF 

f - 

EM50K 
ERR50 



{READ T1C-L CADDR 04) TO CLEAR *TL" 

{(THIS VALUE ISN'T CHECKED BECAUSE IT CAN HE 

j ALMOST ANYTHING) 

t If NO ERROR, PROCEED 

;ELSL, REPORT IT 

r^w C$ERWUR 



>EQ 0167 
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SEQ 0160 



6453 035304 
035304 
035306 

6454 035310 

6455 035314 

6456 035316 
035316 
035320 

6457 035322 

6458 035324 

035324 
035326 
035330 
035332 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 



6468 



6469 
6470 
6471 
6472 
6473 

64 74 



6475 
6476 
64 7 7 



6478 
6479 
6480 
648 1 
6482 
6483 

6484 



6485 

6486 
648/ 
6488 
C?4tt9 



035334 
035340 
035344 
035346 
035350 
035352 
035352 
035354 
035354 
035356 
035360 
035364 
035366 
035370 
035372 
035372 
035374 
035374 
035376 
035400 
035404 
035406 
035406 
035410 
035412 
035414 
035420 
035422 
035424 
035426 
035426 
0354 30 
035430 
035432 
035434 
035440 
035442 
035444 
035446 



104410 

000604 

004737 036146 

102002 

104410 
000570 
103004 



104455 
000116 
016203 
010762 



105037 
004537 
120002 
002445 
103003 

104460 

104410 
000534 
004537 
120005 
002453 
103003 

104460 

104410 
000514 
004 737 
102002 

104410 
000500 
103426 
004537 
120005 
002452 
103003 

104460 

104410 
000460 
00453 7 
12000? 
0024 56 
103003 



16$: 



002445 
004310 



29$ i 



004310 



036146 



004064 



004064 



ESCAPE 


TST 


; AND EXIT THIS TEST 








TRAP 


CJESCAPE 






.WORD 


L10073-. 


JSR 


PC.GETT1 


j.S "Tl" CLEARED NOW 




BVC 


16$ 


|IF NO ERROR, PROCEED 




ESCAPE 


SUB 


{ELSE, IT'S ALREADY BEEN REPORTED -- EXIT 






TRAP 


C*ESCAPE 






.WORD 


L10075-. 


BCC 


29$ 


j YES, ALL' S OK 




GEDF 


EM50C,ERR30 


}N0! BAD VIA CHIP} 

; "DEVICE FATAL* 1 ERROR U 78 








TRAP 


CJERDF 






.WORD 


78 






.WORD 


EM50C 






.WORD 


ERR50 



CLRB 


TMP2»1 


JSR 


R5, WRITE 


DDRB 




TMP2+1 




BCC 


.♦10 


ERROtt 




ESCAPE 


TST 


JSR 


RS, WRITE 


T1CH 




TMP5tl 




BCC 


, *10 


ERROR 




ESCAPE 


TST 



JSR PC.GETT1 
BVC . *6 
ESCAPE SUB 



BCS 

JSR 

T1CH 

TMP5 

BCC 

ERROR 



JSR 

Tll.H 

TMP7 

BCC 

ERROR 



32$ 

R5.READ 



. *10 



ESCAPE TST 



R5.REA0 



. flO 



5 CHANGE THE DIRECTION OF ORB — IT SHOULDN'T 
l HAVE ANY EFFECT ON "PB7" 



;IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP CJERROR 

j AND EXIT THIS TEST 

TRAP C*ESCAPE 

.WORD L 10073 -, 

{REWRITE INTO T1C-H CAODR 05) TO SET Tl AGAIN 



;IF NO ERROR. PROCEED 

{ELSE, REPORT IT 

TRAP C*ERROR 

j AND EXIT THIS TEST 

TRAP C$ESCAPE 
.WORD L10O73-. 

;IS "Tl" SET AGAIN 

{IF NO ERROR, PROCEED 

{ELSE. IT'S ALREADY BEEN REPORTED -- EXIT 

TRAP C$ESCAPE 

.WORD L 10075 -. 

;YES. ALL'S WELL (AGAIN?) 

;GET T1CH FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
{ELSE, REPORT II 

t AND EXIT THIS TEST 



{GET Tli.H FOR ERROR MESSAGE 



} U NU ERROR, PROCEED 
(ELSE. REPORT IT 



TRAP 

TRAP 

.WORD 



C 5 ERROR 

CU SCAPE 
L100/3-. 



CNDMAAO DMV11 MCTRL DIAG #1 MACRO M1200 
TEST 27 -- VIA TIMER it 1 ONE-SHOT MODE 



M14 

22-FEB-84 15:22 PAGE 77-24 





035446 


104460 


6490 


035450 






035450 


104410 




035452 


000440 


6491 


035454 






035454 


104455 




035456 


000117 




035460 


016730 




035462 


010762 


t>492 


035464 






035464 


104410 




035466 


000422 


6493 






6494 






6495 






6496 


035470 


004737 036332 


6497 


035474 


102002 


6498 


035476 






0354 76 


104410 




035500 


000410 


6499 


035502 


103404 


6500 


035504 






035504 


104455 




035506 


000120 




035510 


017174 




035512 


010762 


6501 


035514 


112737 OOClfS 


6502 


035522 


004537 004310 


6503 


035526 


120006 


6504 


035530 


002455 


6505 


035532 


103003 


6506 


035534 






035534 


104460 


6507 


035536 






035536 


104410 




03^540 


000352 


6508 


035542 


004737 036146 


650"-' 


035546 


102002 


6510 


035550 






035550 


104410 




035552 


C00336 


6511 


035554 


103416 


651? 


035556 


00453 7 004064 


6513 


035562 


i 20006 


6514 


035564 


002454 


651S 


03S566 


103003 


6516 


035570 






035570 


104460 


6517 


035572 






035572 


104410 




035574 


000316 


6 r ixa 


035576 






0355/6 


104455 




035600 


000121 



32$ 



002455 44$ 



ESCAPE TST 



GEDF EM50L.ERR50 



I NO! 



ESCAPE SUB 







SEQ oiei 


TRAP 


C$ERROR 




AND EXIT THIS TEST 






TRAP 


C$ESCAPE 




.WORD 


LX0073-. 




SOMETHING WENT WRONG! REPORT IT 






"DEVICE FATAL" ERROR 79 






TRA» 


C$ERDF 




. WORD 


79 




.WORD 


EM50L 




.WORD 


ERR50 




AND EXIT FROM THIS SUBTEST 






TRAP 


CJESCAPE 




.WORD 


L10075-. 





JSR PCGETPB7 

BVC .f6 

ESCAPE SUB 



BCS 44$ 

GEDF EM50U.ERR50 



MOVB 0125.TMP6+1 
JSR R5, WRITE 

till 

TMP6*1 

BCC . *10 

ERROR 

ESCAPE TST 



JSR PC.GETT1 
BVC .»6 

ESCAPE SUB 



BCS 


33$ 


JSR 


R5.REA0 


Till. 




TMP6 




BCC 


.♦10 


ERROR 




ESCAPE 


TST 



GEDF EM5CM.ERRS0 



;GET "PB7". IS IT SET? 

j IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED - EXIT 

TRAP CiESCAPE 
.WORD L100 75-. 

I YES, GOOD. 

iNO, BAD! REPORT IT; NOT SET AFTER TIMEOUT 

j "DEVICE FATAL" ERROR 80 

TRAP C$ERDF 
. WORD 80 
.WORD EM50U 
.WORD ERR50 

;USING A DIFFERENT VALUE -- 55 HEX., 

{RE-LOAD T1L-L CADDR 06) 



l IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

TRAP C$ERROR 
j AND EXIT THIS TEST 

TRAP C$ESCAPE 
.WORD L10073-. 
IS "Tl" STILL SET? 
LF NO ERROR, PROCEED 
ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP C$ESCAPE 
.WORD L10075-. 
;YF5, ALL* S STILL OK 
{GET TILL FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 






{ELSE, REPORT H 








TRAP 


C$ ERROR 


» AND EXIT THIS TEST 








TRAP 


CSESCAPl" 




.WORD 


LI 007 3 . 


j NO! SOMETHING WENT WRONG! 


REPORT IT 




j "DEVICE FATAL" ERROR 


til 






TRAP 


C$ERDF 




.WORD 


81 



iEQ 0169 
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6519 



6520 
6521 
6522 
6523 
6524 
6525 
6526 
652/ 
6528 

6529 



6530 
6531 
6532 



6533 
6534 
6535 
6536 
6537 
6538 

6539 



6540 
6541 
6542 
6543 
6544 

6545 



6546 



035602 
035604 
035606 
035606 
035610 



035612 
035620 
035624 
035626 
035630 
035632 
035632 
035634 
035634 
035636 
035640 
035644 
035646 
035646 
035650 
035652 
035654 
035660 
035662 
035664 
035666 
035666 
035670 
035670 
035672 
035674 
035700 
035702 
035704 
035706 
035 706 
035710 
035710 
035712 
035714 



6547 
6548 
6549 
6550 
6551 
6552 

6553 



017012 
010762 

104410 
000300 



035 724 
035730 
035 752 

035734 

035736 
035 736 
035/40 
035740 



112737 000125 002453 33$ 

004537 004310 

120005 

002453 

103003 

104460 

104410 

000254 

004737 036146 

102002 

104410 

000240 

103024 

004537 004064 

120006 

002454 

103003 

104460 

104410 

000220 

004537 004064 

120007 

002456 

103003 

104460 

104410 
000200 



035714 104455 

035716 000122 

035720 017054 

035722 010762 



00453/ 
120005 
002453 
103003 

104460 

104410 



004310 



34$ 
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ESCAPE SUB 



.WORD EM50M 

.WORD ERRSO 
AND EXIT FROM THIS SUBTEST 

TRAP C$ESCAPE 

.WORD L10075-. 



MOVB 

JSR 

TICH 

TMP5M. 

BCC 

ERROR 


4125,TMP5*1 
R5, WRITE 

.♦10 


ESCAPE 


TST 


JSR 
BVC 
ESCAPE 


PC.GETT1 
. *6 
SUB 


BCC 

JSR 

TILL 

TMP6 

BCC 

ERROR 


34$ 
R5.READ 

. »10 


ESCAPE 


TST 


JSR 

TILH 

TMP7 

BCC 

ERROR 


RS.READ 
. »10 


ESCAPE 


TST 


GEDF 


EM50N.ERR50 



JSR 

TICH 

THPSil 

BCC , *10 

ERROR 

ESCAPE TST 



R5, WRITE 



I AND USING THE SAME VALUE AGAIN (55 HEX), 
jNOW LOAD T1C-H CADDR 05} 



l IF NO ERROR. PROCEED 

{ELSE, REPORT IT 

TRAP C$ERR0R 

j AND EXIT THIS TEST 

TRAP C$ESCAPE 
.WORD L10073-. 

j"Tl" SHOULD NOW BE CLEARED 

j IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED -- EXIT 

TRAP C$E l CAPE 
.WORD L 100 75-. 

j IT WAS, ALL'S WELL THAT END'S WELL (I THINK!?) 

{GET TILL FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
jELSE, REPORT IT 



J 



AND EXIT THIS TEST 



{GET TILH FOR ERROR MESSAGE 



TRAP 

TRAP 
.WORD 



C* ERROR 

C$ ESCAPE 
L10073-. 



{IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP C$ERROR 

j AND EXIT THIS TEST 

TRAP CiESCAPE 

.WORD L10073-, 

i IT WASN'T! SOMETHING WENT WRONG! REPORT IT 

j "DEVICE FATAL" ERROR i> 82 

TRAP CSfcRDF 

.WORD 82 

, UOHO EM50N 

.WORD ERR50 

iRE-LOAD T1C-H ( ADDR 5; TO START IT AGAIN 



j IF NO ERROR. PROCEED 
;ELS£, REPORT IT 

i AND EXIT THIS TEST 



TRAP 
TRAP 



CURROR 
CSESCAPE 



SEU 0182 
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036332 





035742 


000150 


6554 


035744 


004737 


6555 


035750 


102002 


*556 


035752 






035752 


104410 




035754 


000134 


655 7 


035756 


103054 


6558 


035760 


004537 


6559 


035764 


120015 


6560 


035766 


0024 72 


t>561 


055770 


103003 


6562 


035 77.? 






035772 


104460 


6563 


055774 






055 7/4 


104410 




035776 


000114 


6564 


036000 


004557 


6565 


036004 


120004 


6566 


036006 


002450 


656 7 


036010 


103003 


6568 


036012 






036012 


104460 


6569 


036014 






036014 


104410 




036016 


0000/4 


65 70 


036020 


00453 7 


6571 


036024 


120005 


65 7? 


056026 


002452 


6575 


036050 


103003 


6574 


036032 






036032 


104460 


6575 


036034 






036034 


104410 




036056 


000054 


t>5 76 


036040 


004537 


65 7 7 


036044 


120006 


65/© 


036046 


002454 


65 79 


36050 


103003 


6580 


036052 






56052 


'04460 


65B1 


036054 






036054 


104410 




036056 


0OO05' 


6582 


36060 


00453 7 


6583 


056064 


12000/ 


6584 


036066 


002456 


6585 


036070 


103005 


6586 


0360 7? 






0'»60 72 


104460 


658 7 


0360/4 






056074 


104410 




0360/6 


000014 


&5Q& 056100 






56)^0 


104455 




O5M0? 


00012 3 




036104 


Ql?£40 



004064 



004064 



004064 



004064 



004064 
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JSR 
BVC 

e; scape. 


PC.GETPB7 
. »6 

sue 


BCC 

JSR 

IFR 

TMPD 

BCC 

FRROR 


481 
R5,READ 

.♦10 


I SCAPE 


TST 


JSR 

TICL 

TMP4 

BCC 

FRROR 


R5.READ 
.♦10 


ESCAPE 


TST 


JSR 

TICH 

TMP5 

BCC 

FRROR 


R5.RFAD 

, *io 


ESCAPE 


TST 


JSR 
TILL 

TMP6 

BCC 

ERROR 


AS, RE AD 

, >10 


I SCAPE 


TST 


JSR 
TUH 

tmp; 
BCC 

FRROR 


R5 , RE A0 
.•10 


ESCAPE 


TST 


UEDP 


tMSWuLRH&O 



-WORD 1.10073- . 
iGET "PB7", IS IT CI FARED? 
I IF NO ERROR. PROCEED 
iEL.SE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP CIFSCAPF 

.WORD U 10075 -. 
I YES, GOOD. 
,GET IFR FOR FRROR MESSAGE 



»IF NO ERROR, PROCEED 
jELSE, REPORT IT 

I AND EXIT THIS TEST 



jGET TICL FOR ERROR MESSAGE 



I IF NO ERROR. PROCEED 
I ELSE, REPORT IT 

i ANO EXIT THIS TEST 



j GET TICH FOR ERROR MESSAGE 



I IF NO FRROR, PROCFFD 
1 ELSE- , REPORT IT 



J 



ANO EXTT THIS TEST 



iGET Till >0R ERROR MESSAGE 



i IF NO ERROR, PROCEED 
lELSF, REPORT IT 



I 



ANO EXIT THIS TFST 



I GET TUH FQ« ERROR MESSAGE 



TRAP 



TRAP 



TRAP 



TRAP 



i IF NO ERROR. PROCEED 

iFl SF, RFPORT IT 

TRAP 

1 ANO EXIT THIS TEST 

TRAP 
.UUW) 

iNO* BAD! PPT, PH.* NUT DRIVEN I OW 

i -DEVICE KAIAL 4 * ERROR « A3 

TRAP 
.. WORD 



CiFPROR 



TRAP CIESCA»t 

.WORD 110073 -, 



CURROR 



TRAP CIESCAPE 

,WORD L 10073 -. 



CiERROR 



TRAP CIESCAPE 
,W0R0 L10073-. 



CIFRROR 



TRAM CIESCAPE 

.WORD L 10073 . 



CIERROR 

CM .CAPE 

l 1 00 • 3 ■ , 



CM R0» 
IH^OV 



SEQ 0163 



Q Oi/1 



CIS 
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SEQ 0184 





036106 


010 "60 




**SH* 


036110 
05^110 








036110 


104403 




65^0 


O56U0 
036110 








036110 


104401 




t>VU 








6590 








b5<*< 








**-*4 








65*5 








bS^b 








65'*/ 








65<*8 








bVM 








6600 








bt>01 








6600 








660 3 








6604 


36114 


110537 


000451 


6605 


036100 


110537 


000453 


6606 


036104 


00*537 


004310 


66C 7 


036130 


100004 




6608 


036130 


000451 




6600 


036134 


00453/ 


00431U 


6610 


036140 


100005 




6611 


056140 


000453 




6610 


036144 


000005 




6613 








6614 








6615 








6616 








661 ? 








661ft 








6619 








6600 


036146 


004537 


004064 


6601 


036150 


100015 




6600 


036154 


0O04 70 




6603 


036156 


103003 




ft ft 2 4 


036160 








056160 


104460 




i.6.-.'5 


056160 


000060 




6606 


0*6164 


00000 7 




LW1 








6«0\* 


036166 


010046 




660 1 * 


036170 


115700 


0Q24 7£ 


6630 


056174 


106100 




66 31 


0361 76 


106100 




66 3? 


036000 


010600 




66 5 3 


036002 


000007 




6b 34 








*.6 35 








66 56 








bb 3 / 








66 58 








iitlV 









48ij 



ENDSUH 



ENDTST 



1.100/5: 



1.10O/3; 



.WORD ERR50 



TRAP CfESUB 



TRAP CIFTST 



L0DT1C - - LOAD TIMER ONF AT ADDRESSES 04 G Ob 

CALLING SEQUENCE* 

JSR Rb.LOOUC 

.RYTF < VALUE FOR Ht.L (ADDRESS 04). 

.BYTE < VALUE rOR TIC -H (AD0RES5 05)> 

<NEXT SEQUENCIAL INSTRUCTION 



I SETUP TO I OAO TlCl 

j AND T1CH 

lLOAD T1C-L (ADD* 04) WITH PASSED PARAMETER 



lLOAO TlC-M (ADDR 05) gHH PAUSED PARAMfTfcR 
j (THIS WILL ALSO RESET "Tl" 6 THE COUNTER) 



GETT1 -- GtT THE "Tl" FLAG FROM THE VIA' S IFR REGISTER AND PUT IT 
INTO THE "CARRY" BIT 



LODTIC: 


MOVB 


(R5)» ,TMP4>1 




MOVB 


(R5)*,TMP5»1 




JSR 


REWRITE 




TlCl 






TMP4»1 






J5R 


R5, WRITE 




T1CH 






TMP5*1 






RTS 


R5 



UETTlt 



H 



KICKTl 



JSR 


R5.READ 


IFR 




TMPD 




BCC 


1* 


ERROR 




SIV 




RTS 


PC 


HOV 


RO , I SP J 


MOVC 


TMPD.MO 


ROlB 


«0 


ROl H 


RO 


HOV 


(SP).,RO 


RTS 


PC 


INir. TlMtR 



iGET VIA'S IFR REG. 



I U NO FRROR, PROCEED 
lH.St, REPORT IT 

fRAP 
jFLAG AN fRROR TO MAINLINE, ROUTINE 
I AND TAKE AN ABNORMAL RETURN 

jPRESERvt RO 

iPUT VALUE. HE.RE TO PRESERVE TMPO 
I "IRQ" GOES INTO CARRt BIT 
!'-Tl" GOES INTO CARRf BIT 
iRESTQRE RO 



C* ERROR 



o 1 fli Th* MM OWING PROCtOuRt : 
READ UL»M (ADDR 07) TO. UtI THE LAST VALUE LUADEU INTO II 



r.U 01/2 
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cr 



>EQ 0185 



664 1 

6642 

664 5 

6645 
6ti46 
664,' 
664 ft 
6649 
t.650 
6651 
66 V 
66 b 5 
o654 
6b55 
6656 
6657 
6658 
6659 



6660 
6661 
66to? 
6665 
6664 
666S 
6666 
666/ 
6666 
6669 
66 70 
66/1 
66/? 
6673 
66 74 
66 75 
66 76 
66 7 7 
66 78 
66/9 

6680 
6681 
668? 
668 5 
6684 
6685 
6686 
668/ 

6638 



036204 
036206 
036212 
036c' 14 
036216 

036220 
036226 
036234 
036242 
036250 
036256 
03626? 
0362 70 
0362/2 
036274 

036274 
036302 
036510 
036516 
036324 

036326 
036330 



036532 
036336 
36340 
036 342 
036344 
036344 
036346 
036550 

036552 
036354 
36360 
036362 
036364 



010346 
004537 
120007 
002456 
103443 

012/77 
11377/ 
113737 
142777 
112777 
012/03 
132/77 
001016 
077305 



012737 
012/3/ 
01275/ 
01273V 
000261 

C12603 
000207 



004064 



120005 
002456 
002456 
000100 
000002 
000074 

000200 



000001 
000124 
014500 
005426 



00455 7 004064 
120000 
002440 
103003 

104460 

000262 
OOO207 



WRITE THAT VALUE 
AND CAUSE THE 



INTO T1C-H 
RE -LOADING 



(AODR 05) TO RESET THE "T< " INTERRUPT El. AG 
OF BOTH COUNTERS. 



KICKTli 



144134 
144132 
00245* 

144)10 

144100 

144066 5* j 



002236 
002240 
00224? 
002244 



MOV 

*-iR 
T1LH 
IMP/ 
BCS 

MOV 
MOVB 

MOVB 

niCB 

HOVB 

MOV 

BITB 

BNE 

SOB 

GTDF 



R3, (SP) 

R5.RF.AD 



10$ 

♦ UCH.8SEL4 

TMP7.8SEL6 

TMP7,TMP5*1 

♦IFRT1.Q6SEL3 

0W«IL0C,aeSEL2 

♦60. ,R3 

♦MRDY,B6SEL2 

10$ 

R3,5* 

EM4.ERR4 



jSAVE CALLER'S REGISTER CONTENTS 

iGET THE CURRENT SETTING OF THE HIGH LATCH 



I IF ERROR » EXIT 

j SETUP ADDRESS FOR M-LOOP WRITE 

i SETUP DATA rOR SAME 

iPUT HERE TOO. BECAUSE WE'RE GOING TO WRITE IT 

I CLEAR THE INTERRUPT BIT -- JUST IN CASt 

I TELL THE M-LOOP TO WRITE THE BYTE FOR US 

iSETUP TIMEOUT COUNTER 

jWAIT FOR M READY TO BE SET 

I AS SOON AS "MRDY" IS SET, EXIT! 

j IF NO TIMEOUT, CHECK AGAIN 



jELSE, 



"MRDr* 1 
QUEUE 



TIMEOUT 
"DEVICE 



FATAL 



010046 
115700 
106100 
012600 
000207 



10$: 



SEC 

MOV 
RTS 



CSP)»,R3 
PC 



I INDICATE THE FAILURE 6 EXIT 

I RES TORE REGISTER 
{IMMEDIATE RETURN 



OR 


M-READ* 




ERROR 


84 






MOV 




♦T.EDF,ERRTrP 




MOV 




♦84.ERRNBR 




MOV 




♦FM4,ERRMSli 




MOV 




0ERR4,ERRBLK 



GETPB7 -- PUT THE CURRENT SETTING OF "PB7" (BIT / OF ORB W IN THE VIA CHIP) 
INTO THE CARRY OIT SO IT CAN BE TESTED UPON RETURN. 

CALLING SEQUENCE: 

JSR PC.GETPH/ 

< fF ST FOR PB7 SET uR CLEARED WITH "BCS" OR "BCC" INSTR'S* 



;J:'*B 



1*: 



002440 



JSR 


R5.READ 


ORB 




TMPO 




BCC 


1* 


CRROR 




stv 




rts 


PC 


MOV 


HO, ^P) 


MOVB 


TMPO.RO 


001 B 


RO 


MOV 


(SP)»,HO 


kTS 


PC 



iGET THE REGISTER THAT CONTAINS "PU7" 

j IF NO ERROR. PROCEED 
lEl SE. REPORT IT 

TRAP 
i FLAG AN ERROR TO MAINLINE ROUTINE 
I ANO TAKE AN ABNORMAL RETURN 

I PRESERVE THIS REGISTER FOR THE CALL t R 

jPUT ITS CONTENTS HERE SO WE CAN MAN1PI 

jPuT PB/" INTO THE CARRl BIT 

I RESTORE RO FOR THE CAl L ER 

iRtTURN WITH "PB?'" IN THE CARR> BIT 



C* ERROR 



tll> 



Q 01/5 
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6753 .SBTTL TEST t >fl - ^ TIMER 1 FREE -RUNNING MODE TEST 



036566 
6 734 036566 
036366 
036366 
h? 55 563/0 
♦i/36 036 3 74 
6/5/ 036576 



1044CV 
004/5 7 
103003 



003 7 62 



TEST 28 



VIA TIMER X FREE -RUNNING MODE TEST 



THIS TEST VERIFIES THAT r Ht _ TIMER 1 COUNTER IS OPERATIONAL IN 
FREE -RUNNING MODE, IN EACH OF TWO SUBTESTS. 

THE PROGRAM PERIODICALLY CHECKS THE COUNTER TO VERIFY THAT: 

IT IS DECREMENTING ANO EVENTUALLY REACHES 0, 

RELOADS FROM THE LATCHES, AND 

CONTINUES TO DECREMENT. 

IN THE FIRST SUBTEST. THE FOLLOWING IS PERFORMED t 

A MASTER CLEAR IS DONE ANO THE TIMER IS PLACED IN FREE RUNNING MOD* 
BY SETTING ACR 7 T' £ ACR6 TO 1 (MODE 1). ANO THE PROGRAM CHECKS 
FOR THE M Tl H (BIT 6 IN IFR) TO BE INITIALLY CLEARED, 

THEN TIL L (ADR 04) IS LOADED WITH IPS (OCTAL) AND TIC H (ADR 05 J IS 
LOADED WITH 1?5 (OCTAL ) STARTING THE COUNTER, 

THE COUNT IS ALLOWED TO REACH AGAIN, ANO THE "Tl" IS READ AND 
CHECKED TO BE SET, 

T1C-H (ADR 05) IS READ AND "Tl" IS CHECKED TO BE STILL SET. 

THE COUNTER LO BYTE IS READ AND THE "Tl" IS READ AND CHECKED TO BE 
CLEARED BY THE READ OF TIC L. 

THE COUNT IS ALLOWED TO REACH ONCE MORE AND "Tl" IS CHECKED TO BE 
SET AGAIN. 

TILL IS LOADED WITH 25? (OCTAL) AND "Tl" IS CHECKED TO BE STILL 
SET. 

UC-H IS LOADED WITH ?SP (OCTAL) ANO "Tl" IS READ AND CHECKED TO BE 
CLEARED BY THE LADING Of TIC H, 

IN THE SECOND SUBTEST, ALL Of THE ABOVE OPERATIONS ARE REPEATED, WITH 
ACR7 • 1, AND ACR6 • 1 (MODE 3). ALSO, PB7 IS VERIFIED FOR PROPER 
STATE AT THE PROPER TIME, 

BGNTM 



BGNSUB 



JSR 
BCC 
ERROR 



PC.MSTCLR 
15 



T.'H: : 

T.'H. I j 

TMMM 
» INI T DMV C ENTER M L OOP 
ilf NO ERROR, PROCEED WITH TESTING 
I ELSE, REPORT ERROR 



CSBSUtf 



SEQ Olijb 



SEQ 0174 



II.. 
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) 



036376 


104460 










67 38 036400 








ESCAPE 


TST 


036400 


10^410 










036402 


001514 










6739 036404 


004537 


004660 


1*: 


JSR 


R5.IN1TT1 


6740 036410 


000000 











6741 036412 


000100 






BIT6 




6742 036414 


103003 






BCC 


. »10 


6743 036416 








ERROR 




036416 


104460 










to744 036420 








ESCAPE 


TST 


036420 


104410 










036422 


001474 










6745 036424 


004 73 7 


036146 




JSR 


PC.GETT1 


o746 0364 30 


102002 






BVC 


. »6 


6747 036432 








ESCAPE 


SUB 


036432 


104410 










0364 34 


000414 










6748 036436 


103006 






BCC 


2$ 


6749 036440 








GEDF 


EM50A.ERR 


036440 


104455 










036442 


000125 










036444 


016067 










036446 


010762 










6750 0364 50 








ESCAPE 


SUB 


036450 


104 -no 










036452 


000376 










6 751 












6/52 






1 - ■ - - 


* * - - .. 


...... 


6753 












6754 036454 


004537 


036114 


;?*: 


JSR 


R5.10DT1C 


6755 036460 


lc?S 


125 




.BYTE 


125,125 


6 756 












6 75/ 






i - „ „ .. 






6 758 






i 






6759 036462 


005003 






CLR 


R3 


o/60 036464 


004737 


036146 


3i: 


JSR 


PC.GETT1 


6 761 364/0 


102002 






BVC 


, *6 


6762 036472 








ESCAPE 


SUB 


0364 72 


104410 










0364 74 


000354 










b/63 0364/6 


10340/ 






BCS 


41 


6/64 036500 


077307 






SOB 


R3.M 


6 765 036502 








GEDF 


EM50K.ERR 


036502 


104455 










036504 


000126 










036506 


016341 










036510 


010/62 










6/66 036512 








E SCAPE 


SUB 


036512 


104410 










036514 


000334 










h 7b / 












*i/68 056516 


0045 3/ 


004064 


4$j 


JSR 


R5.READ 


*>769 036522 


120005 






T1CH 




6?V0 036524 


002452 






TMP5 





SEQ 0187 



l 6 EXIT TEST 



UNITIALIZE TIMER 1 
i -■> LATCHES 

I MODE 1 £ "Tl" INT 
I IF NO ERROR, PROCEED 
I ELSE, REPORT IT 



TRAP 

TRAP 

.WORD 



Ct ERROR 

CSt. SCAPE 
L10076-. 



ENABLE FLAG CLEARED 



I 



AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



CJERROR 

CtESCAPE 
1.10076- . 



(IS "Tl" SET? 

; IF NO ERROR, PROCEED 

(ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP C*ESCAPE 

.WORD L 100 77-. 

I NO, GOOD. 

.YES, REPORT IT'S NOT BEING Q EARED 3 INIT. 

I "DEVICE FATAL" ERROR & 85 

TRAP C$ERDF 

. WORD 85 

.WORD EM50A 

.WORD ERR50 

I 6 EXIT TEST 

TRAP CSESCAPE 

.WORD 110077 . 



I RELOAD TIMER 1'S COUNTERS WITH NEW VALUES: 



I INITIALIZE TIMEOUT COUNTER 
1 "Tl * SH0U.0 BE SET. IS IT? 

lU NO ERROR, PROCEED 

I ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP CIESCAPE 
.WORD 

j YES, GOOD. 

j NO, IF NO TIMEOUT, LOOK AGAIN 

lELSE, SA1 IT WASN' i SET H> Tl TIMEOUT 

j "DEVICE FATAL" ERROR 86 

TRAP 
. WORD 
.WORD 
WORD 

j IF ERROR, THE REST OF THIS TEST IS UN-DOAHLM 

TRAP C*L SCAPE 
.WORD LI 00 7 7 , 

I READING T1CH SHOUi DN* T CLEAR 'Tl" 

i v'WE DON'T CARE WHAT THIS 1S> 



L 100 7 7 



C IE RDF 
86 

EM50> 
ERM50 



G'1.5 
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SEQ 0188 



6771 


056526 


103003 


6//2 


036530 






036530 


104460 


6773 


036532 






036532 


104410 




036534 


001362 


6 7 74 


036536 


004 73 7 036 14C 


67/5 


036542 


102002 


6776 


036544 






036544 


10*4410 




036546 


000302 


6777 


036550 


103404 


6/78 


036552 






036552 


104455 




036554 


00012/ 




036556 


016406 




036560 


010762 


67/9 


36562 


004/3/ 036204 


6780 


036566 


103003 


6781 


0365 70 






036570 


104460 


6782 


036572 






036572 


\ 044 10 




056574 


001322 


678 5 






6/84 






6/85 


036576 


005003 


6786 


036600 


004/37 036146 


6/8/ 


036604 


102002 


6788 


036606 






036606 


104410 




036610 


0OC240 


6/89 


036612 


10M02 


6790 


036614 


0/ '30/ 


6/91 


036616 


000422 


6792 


036620 


00453/ 004064 


6795 


036624 


123004 


6/94 


036626 


00^450 


6 795 


036630 


103005 


6 796 


036632 






036632 


104460 


6/97 


036634 






036634 


104410 




036656 


001260 


6/98 


056640 


004/37 036146 


6/99 


036644 


102002 


6800 


036646 






056646 


1044 10 




036650 


000^00 


6801 


036652 


103004 


6802 


036654 






036654 


10445'. 




036656 


000150 




O3Mj60 


01t>203 




056662 


010762 



6$: 



7$ 



8$ 



BCC 
ERROR 

ESCAPE 



JSR 

BVC 
ESCAPE 



BCS 
GEDF 



JSR 
BCC 
ERROR 



. »10 

TST 



PC.GETT1 
. *6 

sue 



61 

EM50G.ERR50 



PC.KICKU 
.♦10 



l IF NO ERROR, PROCEED 

lELSE, REPORT IT 

TRAP 

j AND EXIT THIS TEST 

TRAP 
.WORD 

I CHECK **T1" -- IT SHOULD STILL BE SET 

l IF NO ERROR, PROCEED 

lFl.SE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP CIE5CAPF 
.WORD 

I IT IS, GOOD, 

{CLEARED BY READING T1CHJJ 

j "DEVICE FATAL" ERROR 87 

TRAP 
.UORD 
.WORD 
.WORD 

i KICK IT Off AGAIN SO WE CAN PRESERVE TIMING 

I IF NO ERROR, PROCEED 

jFLSE, REPORT IT 



CiFRROR 

CIESCAPE 
1.10076 . 



L10077-. 



CIERDF 
8/ 

FM50G 
ERR50 



ESCAPE TST 



t 



AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



OERROR 

CIFSCAPF 
L100/6-, 



CLR 


R3 


JSR 


PC.GETT1 


BVC 


, »b 


ESCAPE 


SUB 


BCS 


81 


SOB 


R3. /I 


BR 


101 


JSR 


R5.REA0 


net 




TMP4 




BCC 


. *10 


ERROR 





jWAIT FOR IT TO FINISH: 

I INITIALIZE TIMEOUT COUNTER 

l'-M" SHOULD 8E SET . IS IT? 

j IF NO ERROR, 'PROCEED 

I EL St-, IT'S ALREADY BEEN REPORTED -- EXIT 

TRAP CSL'mTAPF 
.WORD L1007 . 

I ifS. GOOD. 

iNO, IF NO TIMFOUT, LOOK AGAIN 

I If TIMEOUT, B i PASS NEXT CHECK (THIS DONE ABOVE) 

I READING T1CL SHOULD CLEAR "Tl" 

I (We DON'T CARE WHAT THIS IS EITHER) 
I If NO ERROR, PROCEED 
lELSE. REPORT IT 







TRAP 


CIFRROR 


ESCAPE 


TST 


I AND EXIT THIS TEST 








TRAP 


C IE SCAPE 






.WORD 


LI 00 76- . 


JSR 


PC.GETT1 


j CHECK "Tl" IT SMOUID BE CLEARED NOW 




BVC 


. •♦» 


j IF NO FRROR. PROCEED 




ESCAPE 


iil»H 


I ELSE, IT'S ALREADY BEEN REPORTED EXIT 






TRAM 


Cil SCAPE 






.WORD 


LlOO/-' . 


BCC 


101 


I IT IS, GOOD. 




GEOf 


EM50C.ERR50 


jNOT CLEARED! REPORT IT . 

i "DEVICE FATAL" ERROR 86 








TRAP 


C It *Df 






.WORD 


88 






.WORD 


t MSOv 






.WORD 


ERR 50 



-I't I 



"1 



SEU 0176 
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6803 
6804 
6805 
6806 



680? 
6808 
6809 



6810 



6811 
681? 
6813 
6814 
6815 
6816 

6817 



6818 
6819 
6820 



b8<n 



682? 



6824 
682b 
6826 
6827 
6828 
682^ 

6830 



b83l 
68 V 



036664 
036666 
036672 
036674 
036674 
036676 
036700 
036702 
036704 

036704 
036/06 
036/10 
036712 
036714 
036714 
036716 
036720 
036726 
036732 
036734 
036736 
036/40 
036740 
036/42 
036742 
036744 
036746 
036/52 
036 754 
036/54 
036756 
036/60 
036762 

036 762 
036/64 
036766 
036 //O 
036 n? 
036/72 
036774 
056 //6 
03 7004 
037010 
037012 
03/014 
03/016 
03/016 
03/020 
3/020 
03/022 
03/024 
03/0 50 
037032 
03/032 
047034 



005003 
004/3/ 
102002 

104410 
000152 
103407 
077307 



1044 55 
000131 
01/554 
010762 

104410 
000132 
112737 
00453/ 
120006 
002455 
103003 

104460 

104410 
001152 
004737 
102002 

104410 
000072 
103406 



104455 
000132 
01/012 
010/62 

104410 
000054 
112737 
004537 
12000/ 
0024 5/ 
103003 

104460 

104410 
0010/4 
004 / 3 / 
102002 

104410 

000014 



036146 



10$ 
12$ 



000252 
004310 



002455 14$; 



036146 



000252 
004310 



002457 161 x 



036146 



CLR R3 

JSR PC.GETTl 

RVC . »6 

ESCAPE SUB 



HCS 14$ 
SOB R3.12S 
GEDF EM50X.ERR50 



ESCAPE SUB 



MOVB 0252.TMP6*! 

JSR R5, WRITE 

TILL 

TMP6»1 

BCC , »10 

ERROR 

ESCAPE TST 



JSR PC.GETT1 

HVC , *6 
ESCAPE SUB 



BCS 16$ 

GEDF EM50M.ERR50 



i SCAPE 


SUB 


MOVB 


0252. TMP 7*1 


JSP 


R5, WRITE 


TUK 




TMP/» 1 




ncc 


.♦10 


ERROR 




ESCAPE 


TST 



jsr pccitru 

BVC . »6 

escape sua 



SEU 0189 



jRt-INITIALT/E THF. TIMEOUT COUNTER 

iWAIT FOR "Tl" 10 GET SET AGAIN 

I IF NO ERROR, PROCEED 

lELSE, IT' 5 ALREADY BEEN REPORTED EXIT 

TRAP C*E SCAPE 
.WORD 

jGOT IT • GOOD. 

jNOT YET, U NO TIMEOUT, TRY AGAIN. 

(ELSE, REPORT "Tl" NOT RESET 

j "DEVICE FATAL" ERROR 89 

TRAP 
.WORD 
.WORD 
.WORD 

iIF ERROR, CAN'T CONTINUE THIS TEST 

TRAP 



L10O77-. 



C$ERDF 
89 

EMSOX 
ERR50 



l SETUP FOR AND 

i LOAD Tll.l (ADDR 6) 

j WITH 252 OCTAl 

j IE NO ERROR, PROCEED 

jFLSE, REPORT IT 



.WORD 



C$E5CAPE 
L10077-. 



J 



ANO EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



C$ERROR 

C$E SCAPE 
110076- . 



j THIS SHOULDN 1 T CLEAR "Tl" 

lit NO ERROR, PROCEED 

lELSE. IT'S ALREADY BEEN REPORTED EXIT 

TRAP C if SCAPE 
.WORD 

I T T DION' T GOJD. 

;WOOPS, IT DID!* REPORT FAILURE 

j "DEVICE FATAL" ERROR 90 

TRAP 
.WORD 
.WORD 
.WORD 

I THE REST OF THIS TEST IS INVALID TOO! 

TRAP CU SCAPE 



L10O77-. 



OEHOF 

90 
EM50M 

ERR 50 



j SETUP FOR AND 

! I OAD TIL H (ADDR 7 1 

i WITH 252 0C1AI 

i IF NO ERROR. PROCEED 

j ELSE. REPORT IT 



.WORD L 1007 7 



{ 



AND EXIT THIS TEST 



TRAP 

TRAP 

. WORD 



C*t HROM 

C$f SCAPl 
L10Q/0-, 



I THI-i SHOW D CLEAR " T 1 " 

j V NO tRROR, PROCEED 

lELSE, IT'S ALREADY UEEN REPORTED t xi I 

TRAP CitsCAPt 
.WORD L100.V-, 



S£Q 01/7 
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SEU 0190 



6854 


057056 


103004 




6855 


057040 








03 7040 


104455 






03704? 


000133 






037044 


01606/ 






037046 


010762 




6836 


037050 






6837 


03 7050 

037050 








037050 


104403 




6838 








6839 


037052 

03705? 








03705? 


10440? 




6M40 


037054 


004737 


003762 


6fi41 


037060 


103003 




684? 


03706? 








03/06? 


104460 




6843 


03 7064 








037064 


104410 






037066 


001030 




6844 


037070 


112737 


00037/ 


6845 


037076 


00453/ 


004310 


6846 


037102 


1?000? 




684 7 


037104 


002445 




6848 


037106 


103003 




6849 


057U0 








037110 


104460 




6850 


03/11? 








03711? 


104410 






037114 


001002 




6851 


037116 


112737 


000030 


685? 


037124 


004537 


004310 


6853 


057130 


120000 




6854 


037132 


002441 




6855 


037134 


103003 




6856 


05/136 








037136 


104460 




685 > 


03/140 








037140 


104410 






037142 


000754 




6858 


03/144 


0O453/ 


004660 


6859 


037150 


000000 




6860 


037152 


000300 




6861 


037154 


103003 




686? 


03/156 








03/156 


104460 




6863 


03/160 








057160 


104410 






05/162 


000/31 




6864 


03/164 


004/3/ 


036146 


6865 


03/iZO 


102002 




6866 


03 71/? 








03/1/? 


104410 






05/1/4 


000 /20 




6867 


037176 


103006 





18$: 



002445 1$ 



002441 



BCC 18$ 

GEDF EM50A.ERR50 



j THAT'S ALL FOLKS} 
ENDSUB 



{IT DID - • GOOD. 

j NOP! REPORT; "Tl" NOT CLEARED BY I OAOING Tll.H 

I "DEVICE FATAL" ERROR 91 

TRAP CIERDF 

.WORD 91 

.WORD LMbOA 

.WORD ERR50 



1.10077: 



TRAP 



CJESUU 



BGNSUB 



J5R PC.MSTCLR 

BCC 1* 
ERROR 

ESCAPE TST 



MOVB *377,TMP2*1 

JSR R5, WRITE 

DORB 

TMP?*1 

BCC , *10 

ERROR 

ESCAPE TST 



MOVB 030,TMPO*1 

JSR R5, WRITE 

ORB 

TMP0»1 

BCC . *10 

ERROR 

ESCAPE TST 



JSR R5,1NITT1 



BIT/»BIT6 

BCC . »10 

ERROR 

ESCAPE TST 



JSR PC.GETTl 
BVC . »6 

\ SCAPE sun 



T28.2: 

TRAP 

iTNIT DMV 6 ENTER Ml OOP 

I IF NO ERROR, PROCEED WITH TESTING 

{ELSE, REPORT ERROR 

TRAP 

\ £ EXIT TEST 

TRAP 
.UORD 



C$BSUB 



C$ERROR 

C$E SCAPE 

L 100/6 . 



j SETUP ODRB SUCH THAT ORB IS AN INPUT/OUTPUT REG 



lU NO ERROR, PROCEED 
{ELSE, REPORT IT 

TRAP C1ERR0R 
j AND EXIT T;tIS TEST 

TRAP C*E5CAPE 
.WORD L 10076 -. 
l CLEAR ALL BITS IN ORB EXCEPT DTR I £ RTS L 
t Bi DOING THIS, Wfc SHOUD EXPECT PB7 TO BE 
j CI EARED IF MOD* 3 DOESN'T WORK PROPERLT . 



j U NO ERROR, PRUCELO 
iF.l.St, REPORT IT 

{ AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



C$ ERROR 

CU SCAPE 
L 100/6 . 



BCC 



2? 



j INITIALIZE TIMER 1 

I ■■> I ATCrtf'S 

j MODE 3 L "Tl" INT. ENABLE FLAG CLEARED 

;If NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP CWHROR 

I AND EXIT THIS TEST 

TRAP CU SCAPE 
,WORD 1.100/6 , 

jlS "Tl" SEI? 

j V NO \ RROR, PROCEED 

jELSE. ITT. ALREADY BEEN REPORTED I XI T 

TRAP CM :-C U'l 
.WORD L10100 . 

jNU, GOOD. 
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SEU 0191 



6866 057200 

03/200 
037202 
037204 
03/206 

6869 037210 
037210 
037212 

6870 

t>871 

68 72 

6873 

68 74 

t>8'/5 

68 76 

68 7 7 

6878 

68 79 

6880 

6881 



03/214 
037220 



6832 
6883 
6884 



6885 



6886 
6887 
6888 
6884 
6890 
6891 
6892 



6895 
6894 



6895 



68 96 
689/ 
♦ ,898 

6899 



037222 
03 7224 
03 7230 
037232 
037232 
037234 
037236 
037240 
037242 

03 7242 
037244 
037246 
037250 
037252 
037252 
037254 



03/256 
037256 
03/262 
037264 
037264 
037266 
037270 
037272 

03 72 72 

03/2 74 
03/^/6 
037 500 
03/302 
037302 
037304 



104455 
000134 
016067 
010/62 

104410 
000702 



004537 
125 



005003 
004 737 
102002 

104410 
000660 
10340/ 
077307 



104455 
000135 
016341 
01C762 

104410 
000640 



004 737 
102002 

104410 
000626 
103406 



104455 

000136 
01 /1/4 
010/62 

104410 
000610 



GEDF 



EM50A.ERR50 



ESCAPE SUB 



jYES, REPORT IT' 


S NOT 


BEING 


CLEARED 3 


INIT. 


I "DEVICE 


FATAL 1 


" ERROR 


* 


92 

TRAP 
.WORD 
.WORD 
.WORD 


CtERDF 
92 

EM50A 
ERR50 


j 6 EXIT TEST 








TRAP 
.WORD 


CJESCAPE 
L10100-. 


„ 













036114 
125 



036146 



2$: 



JSR R5.L0DT1C 
.BYTE 125,125 



jRELOAD TIMER l'S COUNTERS WITH NEW VALUES: 



4$: 



CLR R3 

JSR PC.GETT1 

BVC . »6 



{INITIALIZE TIMEOUT COUNTER 
;"T1" SHOULD BE SET. IS ITV 
I IE NO ERROR, PROCEED 



ESCAPE 


SUB 


jELSE, IT'S ALREADY BEFN REPORTED EXIT 






TRAP 


C*fc SCAPE 






.WORD 


L10100-. 


BCS 


5$ 


j US, GOOD. 




soc 


R3.4* 


t N0. IF NO TIMEOUT, LOOK AGAIN 




GEDF 


EM50F.ERR50 


lELSE, SAY IT WASN'T SET By Tl TIMEOUT 
j "DEVICE FATAL" ERROR i> 93 








TRAP 


CIERDF 






.WORD 


93 






.WORD 


EM50F 






.WORD 


ERR50 


ESCAPE 


SUB 


j IF ERROR, THE REST OF THIS TEST IS UN- 


-DOABLE! 






TRAP 


CtESCAPE 






.WORD 


L10100-, 



036332 



5$: 



JSR 


PC.GETPB7 


{GET "PB/". IS IT SET? 




BVC 


. »6 


» IF NO ERROR, PROCEED 




ESCAPE 


SUB 


ifiLSF, IT'S ALREADY BEEN REPORTED UU 






TRAP 


CIESCAPE 






.WORD 


L 10 100 . 


BCS 


36$ 


{YES, GOOD. 




GEDF 


LM50U,ERR50 


{NO, REPORT IT NO I SET. 

1 "DEVICE FATAL" ERROR 94 








TRAP 


CtKHDK 






.WORD 


44 






. WORD 


EMSOO 






.WORD 


ERR50 


ESCAPE 


SUB 


j 6 ALLOW RESTART OF THIS SUBTEST 








TRAP 


C»E SCAPE 






.WORD 


1.10100 . 



037306 004537 004064 



36 i; JSR 



R5.REAU 



j READING T1CH SHOULDN'T CLEAR "Tl" 



SEQ 01/9 



K1S 
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SEQ 0192 



6900 

6901 
690? 
6903 

6904 



6905 
6906 
t>907 



6908 
6909 



6910 



6911 
691? 
6913 
6914 
6915 
6916 
6917 



6918 
6919 

6920 



6921 



b922 
6923 
6924 
6925 
6926 
692 7 
6928 



6929 

6930 



037312 
037314 
037316 

037320 
037320 
037322 
037322 
037324 
037326 
037332 
037334 
037334 
03 7336 
037340 
037342 

037342 
037344 

037346 
037350 
037352 
037352 
037354 



037356 
037360 
037364 
037366 
037366 
0373/0 
0373/2 
037374 
037376 

03 7376 
037400 
037402 
037404 
037406 
037406 
037410 



037412 
037412 
037416 
037420 
03 7420 
037422 
037424 
03 7426 

03 7426 

037430 



120005 
002452 
103003 

104460 

104410 
00057? 
004737 
102002 

104410 
000556 
103406 



104455 
000137 
016406 
010762 

104410 
000540 



005003 
004 73/ 
102002 

104410 
000524 
10340/ 
077307 



104455 
000140 
016730 
010762 

104410 
000504 



004 73/ 
102002 

104410 
0004 72 
103404 



000141 



T1CH 
TMP5 
BCC . *10 

ERROR 



t (WE DON'T CARE WHAT THIS IS) 
{IF NO ERROR, PROCEED 
iELSE, REPORT IT 



036146 



036146 









TRAP 


C$ERROR 




ESCAPE 


TST 


j AND EXIT THIS TEST 

TRAP 
.WORD 


CJESCAPE 
L 10075 -. 




JSR 


PCGETT1 


iCHECK "TV ■■- IT SHOULD STILL BE SET 






BVC 


. *6 


j IF NO ERROR, PROCEED 






ESCAPE 


SUB 


{ELSE, IT'S ALREADY BEEN REPORTED - EXIT 








TRAP 


C$ESCAPE 








.WORD 


L10100- . 




BCS 


3/$ 


{IT IS, GOOD. 






GEDF 


EM50G,ERR50 


;CLEARED BY READING T1CHJ! 

} "DEVICE FATAL" ERROR # 95 

TRAP 

. WORD 
.WORD 
.WORD 


CIERDF 
95 

EM50G 
ERR50 




ESCAPE 


SUB 


} ALLOW RESTART OF THIS SUBTEST 

TRAP 


CJESCAPE 








.WORD 


L10100 . 


37$: 


CIR 


R3 


{INITIALIZE TIMEOUT COUNTER AGAIN 




38$ s 


JSR 


PC.GETTt 


{WAIT FOR "Tl" TO BE SET AGAIN 






BVC 


. »6 


;IF NO ERROR, PROCEED 






ESCAPE 


SUB 


{ELSE, IT'S ALREADY BEEN REPORTED - EXIT 








TRAP 


C$E SCAPE 








.WORD 


L10100-, 




BCS 


39$ 


j GOT IT - - NO CHECK PB 7 






SOB 


R3,38$ 


{NOT YET. IF NO TIMEOUT, LOOK AGAIN. 






GEDF 


EM50L.ERR50 


{ELSE, TIMER NOT RE/'.uLY WORKING RIGHT! 
j "DEVICE FATAL" ERROR 96 

TRA;» 

,WUMD 
.WORD 
.WORD 


CIERDF 
96 

EMSOL 
ERR50 



ESCAPE SUB 



TRAP 
.WORD 



C$ESCAPE 
H0100-, 



036332 



»* J 



JSR 
BVC 
ESCAPE 


PC.GETPB7 
. *6 

SUB 


BCS 
GEDF 


6$ 
EM50/.ERR50 



iGFT "PB/". IS IT SET? 

{If NO ERROR, PROCEED 

iEl.SE. IT'S ALREADY BEEN REPORTED FXIT 

TRAP CUSCMPt 
.WORD LHUOO-, 

{US, GOOD. 

iNl), REPORT "PB7" NOT SM AFTER SECOND C^Cll 

i "DEVICE FATAL" ERROR 9' 

TRAP CJEHUF 

.WURD 9/ 



SEQ 0180 



LIS 
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SEQ 0193 





037432 


01/471 




037434 


010762 


6931 






6932 






6933 






6934 


037436 


004 737 036204 


6935 


037442 


103003 


6936 


037444 






037444 


104460 


693? 


037446 






037446 


104410 




037450 


000446 


6938 






6939 






6940 


037452 


005003 


6941 


037454 


004/37 036146 


694? 


037460 


102002 


6943 


037462 






037462 


104410 




037464 


000430 


6944 


037466 


103402 


6945 


037470 


077307 


6946 


037472 


000442 


6947 


037474 


00453/ 004064 


6948 


037500 


120004 


6949 


037502 


002450 


6950 


037504 


103003 


6953 


037506 






03/506 


104460 


695? 


037510 






037510 


104410 




037512 


000404 


6953 


037514 


004737 036146 


6954 


037520 


102002 


6955 


037522 






037522 


104410 




037524 


0003/0 


6956 


037526 


103006 


6957 


037530 






037530 


104455 




037532 


000142 




037534 


016203 




037536 


010762 


6958 


037540 






037540 


104410 




037542 


000352 


6959 


03 /S44 


005005 


6960 


03/546 


004 7 37 036146 


6961 


037552 


102002 


6962 


037554 






037554 


104410 




03/556 


000336 


6963 


037560 


10340/ 


6964 


03/562 


Or/ 307 


6965 


G37S64 





6$ 



7$ 



8$ 



.WORD 
.WORD 



EM50Z 
ERR50 



JSR 

occ 

ERROR 



9$: 



JSR 
BVC 
ESCAPE 



BCC 
GEDF 



CLR 
JSR 
BVC 
{.SCAPE 



BCS 

SOB 
GEDF 



PC.KICKT1 

. *10 



(KICK IT OFF AGAIN SO WE CAN PRESERVE TIMING 
ilF NO ERROR, PROCEED 
jELSE, REPORT IT 



ESCAPE TST 



AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



C $ ERROR 

C*ESCAPE 
L10076-. 



CLR 


R3 


JSR 


PC.GETT1 


Bvr 


. *6 


ESCAPE 


SUB 


BCS 


8$ 


SOB 


R3.7* 


BR 


14$ 


JSR 


R5.READ 


T1CL 




TMP4 




BCC 


. *10 


ERROR 





ESCAPE TST 



PC.GETTl 
. *6 
SUB 



9$ 
EM50CERR50 



{WAIT FOR IT TO FINISH: 

I INITIALIZE TIMEOUT COUNTER 

{"Tl" SHOULD BE SET. IS IT? 

I IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED ■- EXIT 

TRAP CiESCAPE 
.WORD L10100-. 

iYES, GOOD. 

{NO, IF NO TIMEOUT, LOOK AGAIN 

{IF TIMEOUT, BYPASS NEXT CHECK (THIS DONE ABOVE) 

{READING T1CL SHOULD CLEAR "Tl" 

{ (WE DON'T CARE WHAT THIS IS fclTH^m 

{IF NO ERROR, PROCEED 

{ELSE, REPORT IT 

TRAP C*ERROR 

} AND EXIT THIS TEST 

TRAP CSfcSCAPE 
.WORD L 10076 -. 

{CHECK "Tl" -- IT SHOULD BE CLEARED NOW 

5 IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED - EXIT 



ESCAPE SUB 



R3 

PC.GETTl 
. »6 

SUB 



14* 

R3.12* 
£M5UX»£HK!iO 



TRAP 
.WORD 
{IT IS, GOOD. 

{NOT CLEARED! REPORT IT. 

{ "DEVICE FATAL" ERROR 98 

TRAP 
.WORD 
.WORD 
.WORD 

{IF THIS ERROR OCCURED, EXIT SUBTEST 

TRAP 
.WORD 

jRE -INITIALIZE THE TIMEOUT COUNTER 

{WAIT FOR "Tl" TO GET SET AGAIN 

iU NO ERROR. PROCEED 

(ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP CU SCAPE 
.WORD L 10100 -. 

(GOT IT - ■ GOOD. 

{NOT "JET. IF NO TIMEOUT. TRY AGAIN, 

j USE. RtPOHl "Tl" NO! Rest I 

I "DEVICE FATAL" ERROR l> 94 



C*ESCAPE 
L10100 . 



CJERDF 
98 

EM50C 
ERR50 

CSFSCAPE 
L10100- . 



SEQ 0181 
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037564 


104455 




037566 


000143 




037570 


017354 




037572 


010762 




6966 037574 






037574 


104410 




037570 


000316 




6967 037600 


112737 


000252 


6968 037606 


004537 


004310 


6969 037612 


120006 




o970 037614 


002455 




6971 037616 


103003 




6972 037620 






037620 


104460 




6973 03 7622 






037622 


104410 




037624 


000272 




69/4 037626 


004 73/ 


036146 


6975 037632 


102002 




6976 037634 






037634 


104410 




0376 5b 


000256 




6977 037640 


103406 




6978 037642 






037642 


1C4455 




037644 


000144 




03 7646 


017012 




037650 


010762 




6979 037652 






03 7652 


104410 




037654 


000240 




6980 037656 


004 737 


036332 


6981 037662 


102002 




6962 037664 






037664 


104410 




03/666 


000226 




6983 037670 


103054 




6964 037672 


004537 


004064 


6985 0376/6 


120015 




6986 037700 


0024 72 




698/ 037702 


103003 




6988 037704 






037704 


104460 




6989 03 7 70c 






037706 


104410 




037/10 


000206 




6990 037 712 


00453/ 


004064 


69Q1 03/716 


120004 




6992 037720 


002450 




6993 037 722 


103003 




6994 03 7 724 






03 7724 


104460 




6995 03/726 






037/26 


104410 




03 7/30 


000166 




6**6 057732 


004557 


004064 



002455 14$t 



16$ 















SEQ 0194 












TRAP 


CJERDF 












.WORD 


99 












.WORD 


ENSOX 












.WORD 


ERR50 


ESCAPE 


SUB 


j IF ERROR, CAN'T CONTINUE 


THIS 


TEST 














TRAP 


CIESCAPE 












.WORD 


L10100-. 


MOVB 


0252 4 TMP6U 


{SETUP FOR AND 










J5R 


R5, WRITE 


j LOAD TILL (ADOR 6) 










TILL 














TMP6*1 




i WITH 252 OCTAL 










BCC 


, *10 


j IK NO ERROR, PROCEED 










ERROR 




{ELSE, REPORT IT 






TRAP 


CSERROR 


ESCAPE 


TST 


i AND EXIT THIS 


TEST 









JSR PC.GETT1 
BVC . *6 
ESCAPE SU8 



BCS 16$ 

GEDF EM50M.ERR50 



FSCAPE SUB 



JSR PC.GETPB7 
BVC . »6 
ESCAPE SUB 



BCC 


1/$ 


JSR 


R5.REA0 


IKR 




mpo 




BCC 


.♦10 


ERROR 




ESCAPE 


tst 


JSR 


R5.RCA0 


TlCl 




TMP4 




BCC 


. *10 


ERROR 




ESCAPE 


TST 



TRAP 
.WORD 



CSf.SCAPF 
L10076-. 



{THIS SHOULDN'T CLEAR "Tl" 

{IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED EXIT 

TRAP CJESCAPF 
.WORD LlOi.00-. 

{IT DIDN'T -- GOOD. 

;W00PS, IT DID!! REPORT FAILURE 

s "DEVICE FATAL" ERROR 100 

TRAP C$ERDF 
. WORD 100 
.WORD EM50M 
.WORD ERR50 

} THE REST OF THIS TEST IS INVALID TOO! 

TRAP CJESCAPF 
.WORD L10100-. 

;"PB/" SHOULD BE LOW HERE 

{IF NO ERROR, PROCEED 

{ELSE, IT'S ALREADY BEEN REPORTED - EXIT 

TRAP CJESCAPE 
.WORD L10100-, 

j IT WASN' T. GOOD. 

{GET IFR FOR ERROR MESSAGE 



JSR 



REREAD 



{IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

i AND EXIT THIS TEST 



} GET T1CL FOR ERROR MESSAGE 



\l\ NO ERROR, PROCEED 
{ELSE, REPORT IT 

{ AND EXIT THIS TEST 



iGEl TICK VQH ERROR MESSAGE 



TRAP 

TRAP 
.WORD 



C5ERR0R 

C5ESCAPE 
L10O76-. 



TRAP 



C$ERROR 



TRAP CUSCAPt 
.WORD L 100 ?b-. 



SEQ 0182 
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SEQ 0195 



6997 037736 


120005 


6^93 037740 


002452 


6999 037742 


103003 


7000 037744 




037744 


104460 


7001 03 7 746 




037746 


104410 


037750 


000146 


700? 03 7 752 


004537 004064 


7003 037756 


120006 


7004 037760 


002454 


7005 03 7/62 


103003 


7006 03 7764 




037764 


104460 


7007 03 7 766 




037 766 


104410 


037770 


000126 


7006 037772 


004537 004064 


7009 0377 76 


120007 


7010 040000 


002456 


7011 040002 


103003 . • 


7012 040004 




040004 


104460 


7013 040006 




040006 


104410 


040010 


000106 


7014 040012 




040012 


104455 


040014 


000145 


040016 


017417 


040020 


010762 


7015 




7016 




7017 




7018 




7019 




7020 040022 


112737 000252 


7021 040050 


004537 004310 


7022 040034 


120007 


7023 040036 


00245 7 


7024 040040 


103003 


7025 040042 




040042 


104460 


7026 040044 




040044 


104410 


040046 


000050 


7027 040050 


004 73/ 036146 


7026 040054 


102002 


7029 040056 




040056 


104410 


040060 


000034 


7030 040062 


103006 


70&X O40064 




040064 


104455 


040066 


000146 



T.ICH 

TMP5 

BCC 

ERROR 


. *io 


ESCAPE 


TST 


JSR 

TILL 

TMP6 

BCC 

ERROR 


R5.READ 
. *10 


ESCAPE 


TST 


JSR 
TILH 

TMP7 

BCC 

ERROR 


RS.READ 
.♦10 


ESCAPE 


TST 


UUDF 


EM50Y,ERR50 



l IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

; AND EXIT THIS TEST 

jGET TILL FOR ERROR MESSAGE 

l IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

5 AND EXIT THIS TEST 
{GET TILH FOR ERROR MESSAGE 



{IF NO ERROR, PROCEED 
{ELSE, REPORT IT 

5 AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



CSERROR 

C*ESCAPE 
L10076-. 



TRAP 

TRAP 
.WORD 



C$ERROR 

CSESCAPE 
L10076-, 



TRAP 

TRAP 
.WORD 



C5ERR0R 

C* ESCAPE 
L 10076 -. 



•JT WAS} REPORT IT BEING RESET BY WRITTING I ILL 
; "DEVICE FATAL" ERR09 101 

TRAP CtERDf 
.WORD 101 
.WORD I/.M50Y 
.WORD ERR50 

AT THE ABOVE "PB / ' TEST. IT SHOULD BT LOW. NOT BECAUSE OF ANY READ/WRITE 
OPERATION, BUT BECAUSE OF WHERE WE ARE IN THE CYCLING OF TIMER 1. "PB7" 
SHOULD BE LOW HERE UNTIL Tl TIMES OUT. 



0024 5 ; ' 17$ 



MOVB 

JSR 

TILH 

TMP7*1 

BCC 

ERROR 

ESCAPE 



JSR 
BVC 
ESCAPE 



BCC 
GEOF 



0252,TMP7*1 
R5.WRI T E 



.♦10 
TST 



PCGETT1 
. »6 

SUB 



18$ 
EM50A.ERR50 



{SETUP FOR AND 

j LOAD TILH (AODR 7) 

; WITH 252 OCTAL 

;IF NO ERROR. PROCEED 

I ELSE, REPORT IT 

: AND EXIT THIS TEST 



TRAP 

TRAP 
.WORD 



CSERROR 

CJESCAPE 
1.100/6- , 



jTHIS SHOULD CLEAR "Tl" 

j IF NO ERROR, PROCEED 

ifcLSE, IT'S ALREADY BEEN REPORTED EXH 

TRAP C$E SCAPE 
.WORD L10100-. 

; IT DID GOOD. 

{NOP! RtPOHT: "Tl" NOT CI t-ARfcD BY I OADING TILH 

I "DEVICE FATAL" ERROR tf 102 

TRAP CHKDF 

.WORD 102 



F.Q 0183 



CN0MAA0 
Tfc&T J8 



703? 
7034 
703*> 
7056 

70? : 

7058 
?05^ 
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SEQ 0196 



'040 



704 1 
704/ 
7043 



0400 70 
040072 
0400 74 
0400 74 
040076 
040100 
040104 
04010* 
040110 
04011.7 
04011.* 

040114 
040114 
040114 
040116 
040116 
04011b 



01606 7 
01076? 

104410 
000016 
00453^ 
00OO01 
000000 
103001 

1C4460 



104403 
104401 



ESCAPE SUB 



.WORD 
.UORD 



EM50A 
ERR50 



004660 



18$ 



JSR 

1 



BCC 

ERROR 



ENDSUB 



ENDTbT 



R5.INITT1 

. »4 

I THAT'S ALL FOLKS! 



TRAP CfFSCAPF 
.WORD L 10100 , 
iRF.- INITIALISE IT TO STOP ITS FUNCTIONING 



i U NO FRROR, EXIT 
lH.SE, REPORT IT 



1.10100: 



L 10076: 



TRAP 



TRAP 



TRAP 



C5F.RR0R 

C*E5UB 
CIETST 



f-.Q 0184 



CNOMAAO OMVU MCTRl. DIAG *t 

HARDWARE PARAMETER CODING SECTION 

"045 
7046 
704 ; 
7048 
.•04** 
7050 
7051 
705? 
TOM 
.'054 



C I b 
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SEQ 0197 



7056 

7057 



;oSd 

705* 



7060 



7061 



706? 

7065 



7064 
7065 

7066 
706/ 
7068 
706'* 
7070 



040120 
040120 

040122 

040122 
04012? 
040124 
040126 
040130 
040152 
04013? 
040134 
040136 
040140 
040142 
040142 
040144 
04014b 
040150 
0401 52 

040154 

040154 



040154 
O40PO2 
040235 



000015 



000031 
040154 
160020 
177776 

001031 
04020? 
000000 
0OO6 74 

00203? 
040233 
007000 
000000 
000007 



104 
104 
104 



105 
105 
10b 



126 
126 



.SBTTl. HARDWARE-. PARAMETER CODING SECTION 

i, //////////////////////////, '////////////////////////////////////////, '/////// 

\S 1HE HARDWARE. PARAMETER COOING SECTION CONTAINS MACROS 

1/ THAT ARE USED BY THE SUPERVISOR TO BUILD P TABLES, THE 

j/ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARF 

}/ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

\/ MACROS ALLOW THE SUPERVISOR TO F5TA8LI5H COMMUNICATIONS 

»/ WITH THE OPERATOR. 

x ///////////// '////////////////////////////////// ////// ///////////////////// 



BGNHRD 



GPRMA ADORES, 0,0, 160020, i77776,rES 



GPRMA VECTOR, 2, 0,0 ,674, YES 



GPRMO PRIRTl ,4,0, 7000,0,7, rES 



LtHARD: 



.WORD 1.10101 -I. SHAPO/2 



.NLIST 

ADORES: 

VECTOR: 

PRIRTY. 

.1 1ST 

.EVEN 



ENDHRD 



BEX 

.ASCI7 

.ASCIi 
BEX 



tlQlOlt 



WORD 

WORD 
WORD 
WORD 

WORD 
WORD 
WORD 
WORD 

UORD 
WORD 
WORD 
WORD 
WORD 



.EVEN 



/Device CSR ADDRESS : 

/DEVICE VECTOR ADORES 4 , 
/DEVICE PaiQRin LEVEL 



TICEDE 

ADORES 
TSLOL IM 
TIHIL1M 

TtCODE 
VECTOR 
T»LOLIM 
TJHILTM 

T$CODE 
PRIRTr 

7000 
III OLIM 

TIHIUM 



1 b 
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SOFTWARE PARAMETER CODING SECTION 

,SBTTL SOFTWARE PARAMETER CODING SECTION 



SEQ 0198 



70 ?? 
70 .'5 
70 .*4 

70 :s 

70 /6 

70 .'7 
70/8 
70 /^ 

7080 
7061 
708^ 
70** 

7084 

vofts 



7006 



040t?64 
040, ?M 

OAOJbh 
040JM> 

040^66 



000000 



j ////////////////////////A'///////// //////////////////////////////////// 
j/ THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

THAT ARE USED Bl THE SUPERVISOR TO BUll.D P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED B> THE SUPERVISOR AS DATA STRUCTURES, THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



1/ 

i ■'' 



j //////////////////////////•/////////////// /'////////////////////////// 



BGNSFT 
ENDSFT 



I. \ SOFT: : 



.WOP'J 1. 10102 -L*SUKT/c! 



Lioioa 



.EVEN 



F.Q Olbb 



CNOMAAO OMV11 NCTRl D1AG #1 
PATCH ARFA FOR DEBUG 



7088 

/ow 

7091 
70^ 
70*3 
70 l »4 
70*S 
70 4h 
70S, 
70*8 
7099 



7100 



040266 

0403f>*> 

040570 
0403/2 



04 05. '4 

040 3. *4 

0405 74 
0403/6 
0404 QO 



04056b 
OOO.MO 
0CKV40 
000240 



000000 
000000 

000001 



bib 

MACRO M1200 22-FF.B-64 tbs22 PAlit til 



.SBTTl PATCH ARFA FOR OtBUG 
PA1CH; 

. -. »100 

NOP 
NOP 
NOP 

.SBTTL "ENDMOD" 6 "LASTAD" 
FNDMOD 
LASTAD 



LtLAST:: 

• fcND 



SF.Q 0199 



LVfcN 

UORD 
WORD 



SEQ 0187 



CNOMAAO 


OMVll MCTRL 


uiau n 


MACRO M1200 


22-f'feB-M 


I 

15} 22 PAGE 


81-1 










SYMBOL ' 


rABLF 






















ACR 


120013 




BSLT5 • 


000025 


LiGPRI- 


000040 


EM50A 


01606 7 




FMT06A 


012571 


ADORES 


040154 




BSl.Tb - 


000026 


CIINIT- 


000011 


EM50B 


016135 




FMT06B 


012637 


APR 


000020 


G 


BSLT7 - 


0000? 7 


CtlNLP- 


000020 


EM50C 


016203 




FMT07 


012530 


AO.HTT 


020350 




B5R0 


002246 


CIMANI- 


000050 


EM50D 


016251 




EMTIO 


012654 


AD . OK 


020344 




BSR1 


002250 


C1MEM ■ 


000031 


EM50E 


016305 




FMTU 


012730 


ASSFMB- 


000010 




BSR10 


002266 


CJMSG - 


000023 


EM50F 


016341 




FMT4 


012245 


RDATA 


002?1? 




BSR11 


002270 


CtOPEN- 


000034 


EM50G 


016406 




FMT4A 


0i2305 


BITO - 


000001 


ti 


BSR12 


0022 72 


CIPNTB' 


000014 


EM50H 


016450 




FMT4B 


012340 


BITOO * 


000001 


G 


BSR13 


002274 


CiPNTF. 


000017 


FM50I 


U. 536 




FMT4C 


012545 


B1T01 - 


00000? 


G 


BSR14 


0022 76 


CfPNTS- 


000016 


LM50J 


016600 




FMT4/A 


00/232 


BITO? • 


000004 


i; 


BSR15 


002300 


C$PNTX« 


000015 


EM50K 


016666 




FMT4 7B 


007263 


BIT03 - 


000010 


r, 


BSR16 


002302 


C$010 - 


0003 7:* 


EM50L 


016730 




FMT47C 


007322 


BIT04 


0000?0 


r, 


BSR17 


002304 


CJRDBU- 


■ 0C0007 


EM50M 


017012 




FMT47E 


007350 


BIT OS * 


000040 


u 


iSR? 


00225? 


C*REFG« 


■ 00004 7 


EM50N 


017054 




FMT47G 


00740/ 


BIT 06 * 


000100 


i; 


BSR3 


002254 


CIRESE' 


- 000033 


EM50S 


01712? 




FMT48A 


010300 


BITO/ » 


000200 


ti 


BSR4 


002256 


CIREVI- 


■ 000003 


EM50U 


017174 




FMT48B 


010347 


BIT08 • 


000400 


li 


BSRS 


002260 


C)RFLA> 


• 000021 


EM50V 


017240 




CMT48C 


0104C2 


B 1 . 10*J - 


001000 


Li 


BSR6 


002262 


CtRPT • 


■ 000025 


EM50W 


017305 




Ml-. BE 


01043/ 


BIT1 - 


00000? 


G 


bsr; 


002264 


CiSEFG' 


• 000046 


EM50X 


01/354 




FMT48F 


010506 


BIT10 - 


00?000 


g 


BTt 


003122 


C$SPRI« 


• 000041 


EM50Y 


017417 




fMT48G 


010551 


II V T 1 1 * 


004 OOO 


G 


BT? 


003206 


CISVEC- 


• 00003/ 


FM50Z 


01 74 71 




FMT48H 


010611 


Bill? - 


010000 


Li 


BUT ARE 


003122 


C$TPRI 


• 000013 


EM6 


014540 




FMT48I 


010644 


BIT!. 1 - 


OP 0000 


(. 


CONSOL 


0C2346 


DORA 


• 120003 


EM/ 


014564 




FMT5 


012400 


BIT \* - 


040000 


G 


CONTIN 


0P0122 


DDRB 


• 1P0002 


EMfl 


014611 




FMT5A 


012443 


BIT 15 - 


100000 


G 


CON i ST 


020222 


DELAY1 


002316 


FM9 


014634 




FMT50A 


012747 


BIT? * 


000004 


G 


CSRFGS- 


000020 


DELAY? 


002320 


ENDEMB 


012114 




FMT50B 


013021 


BIT5 * 


000010 


Ci 


CIAU ■ 


00005? 


DEVMAP 


002342 


EN0T7 


022642 




FMT50C 


013102 


BI14 - 


OOOOPO 


G 


ClAUTO- 


000061 


DEVPTR 


002344 


ERRBLK 


002244 


G 


FMT500 


013142 


BITS • 


000040 


G 


CiBRK • 


000022 


DFPTBL 


002216 G 


ERRFLG 


002332 




FMT50E 


013157 


BIT6 - 


000100 


(i 


CIBSEG- 


000004 


DIAGMC 


• 000000 


ERRMSG 


002242 


G 


f MT50M 


013174 


bit; - 


OOOPOO 


G 


CIBSUB- 


000002 


OMVDAI 


■ 000001 


ERRNBR 


002240 


G 


FRSPAS 


002340 


B I T 8 - 


00040O 


G 


CtCEFG- 


000045 


DMVPU 


• 000004 


ERRTYP 


002236 


G 


FRSTIM 


002336 


BIT9 * 


001000 


G 


CtCLCK- 


00006? 


EF . CON 


- 000036 u 


ERR1 


005276 


G 


F1AU « 


0O001S 


BOt 


000400 


Ci 


CICLEA- 


000012 


EF.NCW 


• 000035 G 


ERR? 


005304 


G 


F$AUTO« 


000020 


BSLl 


00235? 




CtCLOS- 


000035 


tr .pur 


• 000034 G 


ERR 3 


005414 


G 


^ *BGN • 


000040 


BSFl RS 


00 504? 




CICLP1- 


000006 


F.F.KtS 


• 00003 7 G 


ERR4 


005426 


G 


F$CLEA« 


000007 


BSfcLO 


002352 




CtCVEC- 


000036 


F.F .51 A 


« 000040 G 


FRR4S 


011322 




F SOU • 


00001b 


psei i 


002354 




CJDCLN- 


000044 


EM14 


01466 7 


ERR47 


006 724 


G 


FtEND ■ 


00004 1 


BSFL 10 


00? 3/? 




CIDOOU- 


000051 


EM15 


014733 


ERR47. 


007110 




FIHARO- 


000004 


BSLL 11 


002374 




C$DRPT« 


• 000024 


EM16 


015013 


F.RR48 


007632 


G 


F*HU • 


* 000013 


BSFl IP 


0023/6 




CIOU « 


• 000053 


EM17 


015110 


ERR48. 


010030 




FIINIT- 


000006 


BSfl 13 


002400 




CSEDIT- 


• 000003 


EM17A 


0151 70 


ERR5 


005552 


G 


F $JMP ■ 


• 000050 


BSLl 14 


00240? 




CtERDF 


• 000i>:>5 


LM20 


015243 


ERRS! 


011710 




Ft MOD ' 


• 000000 


BSEL15 


002404 




ClERHR 


■ 000056 


EM20A 


0152/5 


2RR50 


010762 


G 


F $MSG « 


000011 


BSLL 16 


002406 




CIERRO- 


• 000060 


EM20B 


015355 


IRR6 


005650 


G 


FIPROT' 


' 000021 


BSFL 1/ 


002410 




OERSF- 


• 000054 


EM21 


015442 


F.RR7 


006612 


G 


FIPUR - 


• 000017 


BSl L? 


002356 




OERS0« 


• 00005/ 


LM22 


0154// 


ER4/CT 


00/104 




f IRPT - 


■ 000012 


BSFl 3 


002360 




CtESCA 


• 000010 


FM??A 


0155 3,' 


FR4/MX 


007106 




FJSEG • 


■ 00000 3 


BSFl 4 


00? 562 




CIE.SEG 


■ 000005 


EM? 5 


015565 


ER48CT 


010024 




f ISOFT 


• 000005 


BSEL5 


002364 




C1ESIB 


■ 000003 


EM3 


014454 


ER48MX 


010026 




FISRV « 


' 000010 


BSFt 6 


002366 




CIF.TM 


■ 000001 


1 M34 


015613 


FVL 


00H004 


Ci 


K$SL* 


■ 00000? 


BSE I. 7 


00P370 




ClExlT 


■ 000032 


LM34B 


015644 


EXt.CUT- 


000005 




* $sw 


• 00 JO 14 


BSl TO * 


000020 




CIGFTB 


• 000026 


I M4 


014500 


MtNO • 


002100 




FiTEST 


• 000001 


BSl 11 * 


0000? 1. 




cir.f iu 


• OuOO.'/ 


t-M4 /A 


0156/5 


F $1 OAO- 


0000*5 




t.OATA 


002 310 


BSl T.' 


oouu?? 




ClliMAN 


* 00004 3 


[ M4 /B 


015 MS 


i MTU? 


01? 124 




lit I BSR 


0044 34 


B5LT '- - 


0000? 3 




CJGPHR 


* 00004? 


LM4QA 


016016 


>NTo?A 


0121*1 




GLFPB.' 


36*3.' 


U5LT4 « 


000024 




CttiPLU 


* 000050 


EMS 


Q145X5 


FMT06 


DX<!5fe2 




CtTPRM 


yjoui*: 



SEQ 0200 



5F.Q 0166 



CNOMAnO I1MVU MCTRL 01 AG 01 
SYMBOL TABLE 



GET fl 
GS TWJ'.R 

GSCNTO- 
GSDELM- 
GJDI5P* 
GH.XCP- 
G$H1LI •» 
GH.Ol I-- 
K$ NO • 
GtOfTS* 
GSOFSI- 
GSPRMA- 
GtPRMD* 
GiPKMi.- 
G$RADA» 
GtRADB* 
GiRADO* 
G$RAOL- 
GSRADO- 
G$XF"ER- 

n$ir.s * 
hi:lp * 

hoe: 

IBP 

1DU 

It NBA * 

IENBB - 

IENR * 

ll.R 

JER 

IPRCA1- 

1ERCA2- 

3FRCB1- 

IF RCB2- 

IF RIRQ- 

I» RSR - 

IF'RTI » 

JFRI2 - 

1HILNK 

I HOL NK 

1NMT1 

INTELG 

INTWCH 

1RCJA 

I ROB - 

IRQREG- 

15R 

IxE 

JSAU - 

I % AU T ■ 

IiClN * 

1IDU ' 

IiHRD - 

lUNir- 

i 5 MfJ[) 
ISM'A, « 
l&PKUTa 



056146 

c~45/b 

0«.0?00 
0003 72 

000003 
000400 
000002 
OOJOOl 

oeoooc 

000400 

0003 76 
0000') 1 
00000? 
000000 
000140 
000000 
000040 
000120 
000020 
000004 
000010 
000000 
100000 
010000 
000040 
000001 
000020 
12001b 
020000 
120015 
000002 
000001 
000020 
000010 
000200 
000004 
000100 
000040 
005222 
0052 74 
004660 
002 326 
002330 
000004 
000002 
123005 
000100 
004000 
00004 1 
000041 

00004 1 
00004 1 
000041 
00004 1 
000041 
000041 
QQ0040 



G 



n 


MACRO M1200 


22-Ft»H4 


G'l 

15; 22 PAGE 81 


h 

2 




IJPTAB' 


■ 0000 ;i 




LfPRIO 


002042 


G 


L 10054 


027356 


IiPWR • 


■ 000041 




L.tPROT 


017614 


c; 


L 10055 


02/352 


I$RPT ■ 


• 0000*5 \ 




i $PRT 


002112 


G 


L 10056 


027440 


IISEG ■ 


• 00004.1 




i.JRf-PP 


002062 


G 


L10057 


0°7»T34 


IJSETU' 


■ 000011 




LJRF.V 


002010 


G 


L 10060 


027524 


IS SET • 


- i'0?04l 




LfliOET 


040266 


Ci 


1.10061 


02 7520 


I*5RV - 


• O.J0041 




LlbPC 


002056 


G 


L 10062 


02/612 


IISUB ' 


' V.0041 




LISPCP 


002020 


G 


L. 10063 


02 7606 


I$TST ■ 


' 00w041 




LJSPTP 


002024 


G 


I 10064 


030100 


JUMP 


• 00016/ 




L$SiA 


002030 


G 


1.10065 


030230 


KICKT1 


36204 




LISW 


002236 


G 


L 10066 


030 360 


I.ODTi*: 


036U4 




LtTtST 


002114 


G 


L10O67 


030514 


i. or. 


- 040000 


r, 


LJTIML 


002014 


G 


1.10070 


030644 


L OGDEV 


002322 




LUJNIT 


002012 


G 


1.10071 


0307/4 


LDT 


- 000010 


Ci 


L 10000 


002234 




L10O72 


03113? 


l.'iIOCL 


• 000002 




LI 0001 


002236 




L 10073 


03611? 


Li-IHL r 


■ 000020 




L 10002 


005220 




L10074 


033404 


LU1M0D 


002000 


G 


L 10003 


005272 




LI 0075 


036110 


LIACP 


002110 


G 


I 10004 


005302 




L 100 76 


040116 


LJAPT 


002036 


G 


Li 0005 


005412 




L1007/ 


037050 


I.IAU 


020400 


G 


L 10006 


005424 




L10100 


040114 


I IAUV 


002070 


G 


L 10007 


005550 




I 10101 


040154 


i ;au;o 


020232 


G 


L 10010 


005646 




I 10102 


040266 


L*CC e 


002106 


G 


L100 1 1 


006610 




HbSCLR 


003614 


l.tCi-EA 


020356 


G 


L10012 


006 722 




MCLR - 


000100 


L$CO 


002032 


G 


L10013 


007102 




HLWRI 


004 352 


LIDEPO 


002011 


G 


L10014 


010022 




MPCSR 


002352 


L$DESC 


003542 


U 


L10015 


0112/4 




HP I HAN 


00515? 


LIDESP 


002076 


G 


L 1001 7 


020220 




MP1VEC 


00241? 


LtDfcVP 


002060 


G 


I 10020 


020346 




HPOHAN 


005224 


LJDISP 


002! 24 


G 


L 10021 


020372 




HPOVEC 


002414 


L1DLY 


002116 


G 


LI 0022 


0203/6 




HPRIOR 


002416 


L*DTP 


002040 


G 


L 10023 


020400 




HRDy - 


000200 


LIDTYP 


002034 


G 


L 10024 


02053b 




rHFQ « 


000001 


LiDU 


020374 


G 


L 10025 


02066c 




h ,TCLR 


003 762 


LtDUT 


00207? 


G 


L 10026 


021254 




NEW IN 


012121 


L$DVTY 


003522 


G 


L 1002 7 


021446 




NEWPC 


002500 


liee 


002052 


G 


L10u30 


021610 




NEWST 


017 77? 


L*ENVI 


002044 


G 


L10031 


02175? 




NPRA0T- 


ooo?oo 


LfERRT 


002236 


G 


L 10032 


022134 




NPRAIH- 


000075 


LIETP 


002102 


G 


L10033 


022644 




NPRAIL 


000074 


LIEXPl 


002046 


G 


1.10034 


022554 




NPRAIX- 


00007b 


LfEXP4 


002064 


G 


L10O35 


022642 




NPRAOH- 


0000/1 


LIEXP5 


002066 


G 


L 10036 


023212 




NPRAOL- 


0000/0 


LtHARD 


040122 


G 


L10037 


025400 




NPRAOX- 


• 0000/2 


L IHIMf 


002120 


G 


L 10040 


025140 




NPRBS7' 


■ 000010 


LIHPCP 


0020.6 


G 


L1004J 


02b.'62 




NPRBYT- 


• 000010 


LtHPTP 


CJZO?? 


G 


1.1004? 


026044 




NPRCTL ■ 


• 12 5004 


I.IHU 


002216 


G 


I 1004 3 


026040 




NPROl 


■ 000044 


LIICP 


002104 


G 


1 10044 


026126 




NPRDl B 


• 000054 


I UNIT 


01/622 


G 


I 1004 5 


02612? 




NPRDRH- 


■ 125001 


1 SI AOP 


002026 


G 


t 10046 


026230 




NPRDRl 


• 123000 


I H AST 


040400 


G 


I 1004 7 


026224 




NPRt>0 


* 000 1 00 


1.IL0AD 


002100 


G 


1 10050 


02/2/4 




NPHIU 


* 00004 


t il un 


0020/4 


U 


I 10051 


02b/ 36 




NPRl 


- 000004 


l.SMMKv 


002050 


G 


I 1005? 


02/U4 




NIK t RR 


01 20. '2 


L*NAM£ 


002000 


U 


LIQO&& 


0*27,2 7£ 




OLUSP 


00^502 



SEQ 0201 



G 



ORA 

ORAM 

ORB 

CMAPTS 

OJAU 

OJBGNR 

0*BGNS 

0$DU 

OJERRT 

0*GN5W 

OJPOIN 

OISLTU 

PATA 

PATR 

PA TC 

PATCH 

PATCH 

PATCR 

PATD 

FATt 

PATF 

PATG 

PATGFN 

PCR 

PEL AG 

PNT 

PRI 

PR1RTY 

PRIOO 

PRI01 

PRI02 

PRI03 

PK£04 

PRI05 

PRI06 

PRI07 

PSTACK 

PU24 

RCkAH 

RbAD 

REACI 

RLOLOC 

REDPAG 

REGNUM 

RE GO 

RfGl 

REG2 

RFG3 

RFG4 

REG5 

RtGb 

RfG/ 

Rf sfMC 

HLSF T5 

HtSTRt 

RlfN 

StLO 



120001 

120017 

120000 

000000 

000001 

000000 

000000 

000001 

000001 

000000 

000001 

000000 

002504 

00252b 

002556 

O402o6 

002624 

002604 

002b44 

0026 74 

002724 

003040 

023776 

120014 

002550 

001000 

002000 

040235 

000000 

000040 

000100 

000140 

0O020O 

000240 

000500 

000340 

002 524 

000001 

025blt> 

OO4064 

0041/6 

000001 

000003 

002354 

002420 

002422 

002424 

00242o 

0024 50 

0024 52 

0024 54 

0024 5b 

00 5040 

01 "' .'bri 
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